Ответы на вопрос:
Const n = 10; var a: array[1..n] of integer; i,k: integer; begin randomize; writeln('исходный массив: '); k: =0; for i: = 1 to n do begin a[i]: =random(201)-100; write(' ',a[i]); if a[i] mod 5 = 0 then k: =k+1; end; writeln; writeln('количество элементов, кратных пяти: ',k); readln end.
Популярно: Информатика
-
alhan102.03.2022 07:21
-
mvchudakova10.12.2022 09:21
-
ilonka2004824.11.2020 18:01
-
MaksandSany23.12.2020 04:33
-
PROматематик09.05.2022 01:45
-
миссЧудесная24.04.2022 23:24
-
almagul8218.01.2023 15:45
-
Гоша228519.07.2022 02:49
-
fnnifnnr21.05.2021 13:26
-
okru24057p00ymy02.10.2021 08:29