С! заполнить массив из 20 элементов случайными числами найти количество элементов кратных 6.
130
466
Ответы на вопрос:
Program fpro; var a : array[1..20] of integer; i : integer; s : integer; begin s : = 0; randomize; for i : =1 to 20 do begin a[i] : = random(1,100); if (a[i] mod 6) = 0 then s : = s+1; end; writeln('количество элементов кратных 6: ', s) end.
Популярно: Информатика
-
vasilevamarin09.10.2021 01:29
-
Shynar95814.11.2022 11:11
-
torshindanya06.12.2021 02:14
-
Lirki16.11.2020 09:03
-
Reichale03.04.2020 12:09
-
fufujyrfjyrfyjrff09.01.2021 02:40
-
Jefry22819.10.2020 19:47
-
sob00016.06.2020 01:57
-
jayature01.01.2020 20:49
-
Nastena10200226.07.2021 10:17