Заполнить массив случайными числами из промежутка (1-100) и определить в массиве a[1..20]кол-во однозначных чисел кратным 3.
272
496
Ответы на вопрос:
Var i,k: integer; a: array[1..20] of integer; begin k: =0; for i: =1 to 20 do begin a[i]: =random(101); if (a[i] mod 3=0) and (a[i]< 10) then k: =k+1; end; writeln(k); end.
Популярно: Информатика
-
Gabueva0224.05.2022 22:45
-
zippik200605.07.2021 23:28
-
Korovink03.08.2022 01:11
-
nastyamagiao22.02.2020 17:26
-
ЛолТролло20.09.2021 22:20
-
Софи1234567890я08.07.2022 14:30
-
vadim4ikkek19.05.2021 13:57
-
ulyanablem05.03.2023 04:40
-
qqqq2730.10.2021 13:24
-
юлка1005.10.2020 21:36