1. найти индексы тех элементов массива, элементы которых равны последнему элементу массива из 30 элементов заданных случайным образом числами от -5 до 15. 2. увеличить все четные элементы массива на k.
124
277
Ответы на вопрос:
Var a: array [1..30] of integer; i, k: integer; begin write('k = '); readln(k; ) for i: =1 to 30 do begin a[i]: =random(21)-5; writeln('a[', i, '] = ', a[i]); end; for i: =1 to 30 do begin if a[i]=a[30] then write(i, ' '); if a[i] mod 2 = 0 then a[i]: =a[i]+k; ; end; end.
Популярно: Информатика
-
Отлишник8810.11.2021 08:38
-
shefer8413.10.2021 10:40
-
Кристина111037316.08.2021 18:37
-
ааааааа5928.10.2020 20:50
-
omka0222.06.2021 14:22
-
elena1alekseevna20.10.2020 20:09
-
vladisnal211.08.2022 13:43
-
lenavinnik8020.09.2022 01:14
-
ekatsinrom08.06.2020 09:01
-
polinamanush15516.05.2020 16:48