Дан фрагмент электронной таблицы В ячейку С3 введена формула =$D$1*(A3-
B3). Формула была скопирована в ячейки С4,
С5 и С6.
СОР
210
452
Ответы на вопрос:
Var s,i,a,k: integer; m: array[1..20]of integer; begin write('введите а и k: '); readln(a,k); writeln('массив: '); for i: =1 to 20 do begin m[i]: =random(20); write(m[i],' '); if m[i] mod 2=1 then s: =s+m[i]; end; writeln; writeln('сумма нечетных: ',s); write('искомыe индексы: '); for i: =1 to 20 do if m[i]> a then write(i,'; '); writeln; writeln('положитеьные, кратые ',k,': '); for i: =1 to 20 do if (m[i]> 0) and (m[i] mod k=0) then write(m[i],'; '); end.
Популярно: Информатика
-
Anutka87igorevna28.07.2020 02:39
-
vsjhffdsg30.04.2020 19:18
-
valerija123427.03.2020 10:31
-
listikistik12.04.2023 09:14
-
dzamshutor27.02.2023 01:50
-
kirillfox99ozbdp813.09.2021 10:48
-
vladimirrr7411.08.2022 22:57
-
пелы22.10.2021 02:29
-
erro1423.11.2020 23:15
-
ufkvkvkg06.01.2020 17:03