Дан массив из 10 чисел найти количество чисел делящихся на 2
Дан массив из 10 чисел найти количество чисел делящихся на 2
Гость
Ответ(ы) на вопрос:
Гость4,6,8,10,12,14,16,18,20,22
Гостьvar
a: array [1..10] of integer;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(10);
write(a[i]:2);
end;
writeln();
for i := 1 to 10 do
if (a[i] mod 2 = 0) then
inc(s);
writeln(s);
end.
Не нашли ответ?
Похожие вопросы