Дан массив целых чисел от 0 до 20, заполненный случайными числами в интервале [0,100]. определить количество элементов массива кратных 3.
197
372
Ответы на вопрос:
Var x: array[1..100]; k,i: integer; begin k: =0; for i: =1 to 100 do begin read(x[i]); if (z[i] mod 3=0) then k: =k+1; end; write(k); end.
Znanija by GFrupe
---------------------------
1) В слове Модель 8 битов.
2) А
Популярно: Информатика
-
tigranmesropyan31.05.2021 15:12
-
Murua22.09.2020 04:21
-
galina8532128.07.2021 01:47
-
varvarataraskina29.12.2022 11:47
-
DI228MA02.01.2022 15:53
-
deneleslamov230.06.2022 23:24
-
карина233304.06.2022 07:10
-
HELPLIZA116.11.2021 18:03
-
Shavelko20.06.2021 12:25
-
MaryanaSokolova040425.05.2023 19:51