Определить четные числа в массиве в программе pascalabc и все это вывести на экран.

2008анна22031 2008анна22031    1   28.08.2019 16:40    0

Ответы
57775858775847575 57775858775847575  06.10.2020 00:52
Var

a:array[1..10] of integer;

i:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random(101);

if a[i] mod 2 = 0 then

writeln('a[', i, ']=',a[i]);

end;

end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика