Ответы на вопрос:
Const nmax = 5; var a: array [1..nmax] of integer; i,k: integer; begin k: =0; randomize; for i: =1 to nmax do begin a[i]: =random(11)+10; write (a[i],' '); if a[i] mod 5 = 0 then inc(k); end; writeln; writeln ('kol-vo: ',k); end.
Популярно: Информатика
-
EdiNoRoShKa22820.02.2020 13:27
-
ELB219.10.2021 17:02
-
лёванчик22808.12.2020 04:11
-
Sashonmillioner08.01.2022 14:26
-
и5п5п18.01.2020 18:31
-
blrikiog10.07.2021 23:24
-
dianamuk2006722.02.2023 17:15
-
tanyagorelik03.05.2023 17:36
-
PauD30.12.2020 11:59
-
alexalu040229.05.2023 12:37