Замена элементов массива по условию

@Xpamou · Регистрация: 17.10.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток.

Задание :
Даны массивы : X1,...,X10 ; Y1,...,Y15. Если Xср. > Yср. ,то заменить Yi < Yср. на 2.5 , в противном случае заменить Xi < Xср. на 10

Суть проблемы в моём полном незнании этой темы.Сломал ключицу,пропустил все лекции по массивам,а из конспектов друзей не то,что суть не ясна,но даже слова с трудом читаются...Заранее спасибо,за помощь.

@andik · 18.10.2010, 00:04

Xpamou, программу написать - пять минут, но хотелось бы уточнить: массивы должны заполняться рандомными значениями?

Добавлено через 18 минут
Ну вообщем выкладываю, надеюсь что разберешься

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
RANDOMIZE TIMER
CLS
DIM x(10), y(15)
s = 0
p = 0
PRINT "massiv x:"
FOR i = 1 TO 10
 x(i) = INT(RND(1) * 20)
 PRINT x(i)
 s = s + x(i)
NEXT i
PRINT "massiv y:"
FOR j = 1 TO 15
 y(j) = INT(RND(1) * 20)
 PRINT y(j)
 p = p + y(j)
NEXT j
PRINT
s = s / 10
p = p / 15
PRINT "s="; s, "p="; p
IF s > p THEN
 PRINT "s>p": PRINT "novui massiv y:"
 FOR j = 1 TO 15
  y(j) = p - 2.5
  PRINT y(j)
 NEXT j
ELSE
 PRINT "s<p": PRINT "novui massiv x:"
 FOR i = 1 TO 10
  x(i) = s - 10
  PRINT x(i)
 NEXT i
END IF

Небольшое пояснение:
s - среднее значение массива x
p - среднее значение массива y

@Xpamou · 18.10.2010, 00:35 **[ТС]**

Да,значения должны быть случайными,извиняюсь за то,что не уточнил.
Суть ясна,что не пойму-спрошу.
Спасибо большое!

@кот Бегемот · 18.10.2010, 01:40

andik, решение неверно. средним заменяются только значения меньшие среднего

@andik · 18.10.2010, 19:10

кот Бегемот, точно, спасибо! Не совсем правильно сначала понял задание.
Xpamou, извиняюсь, исправил:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
RANDOMIZE TIMER
CLS
DIM x(10), y(15)
s = 0
p = 0
PRINT "massiv x:"
FOR i = 1 TO 10
x(i) = INT(RND(1) * 20)
PRINT x(i)
s = s + x(i)
NEXT i
PRINT "massiv y:"
FOR j = 1 TO 15
y(j) = INT(RND(1) * 20)
PRINT y(j)
p = p + y(j)
NEXT j
PRINT
s = s / 10
p = p / 15
PRINT "s="; s, "p="; p
IF s > p THEN
 PRINT "s>p": PRINT "novui massiv y:"
 FOR j = 1 TO 15
  IF y(j) < p THEN
  y(j) = 2.5
  END IF
 PRINT y(j)
 NEXT j
ELSE
 PRINT "s<p": PRINT "novui massiv x:"
 FOR i = 1 TO 10
  IF x(i) < s THEN
  x(i) = 10
  END IF
 PRINT x(i)
 NEXT i
END IF

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Xpamou 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 3

	Замена элементов массива по условию 17.10.2010, 22:46. Показов 1596. Ответов 4 Метки нет (Все метки) Доброго времени суток. Задание : Даны массивы : X1,...,X10 ; Y1,...,Y15. Если Xср. > Yср. ,то заменить Yi < Yср. на 2.5 , в противном случае заменить Xi < Xср. на 10 Суть проблемы в моём полном незнании этой темы.Сломал ключицу,пропустил все лекции по массивам,а из конспектов друзей не то,что суть не ясна,но даже слова с трудом читаются...Заранее спасибо,за помощь. 0

@Xpamou 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 3
	18.10.2010, 00:35 [ТС]
	Да,значения должны быть случайными,извиняюсь за то,что не уточнил. Суть ясна,что не пойму-спрошу. Спасибо большое! 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	18.10.2010, 01:40
	andik, решение неверно. средним заменяются только значения меньшие среднего 1

Замена элементов массива по условию

Решение