Заполнить массив случайным образом и вывести на экран только четные элементы

Ответы

Ответ дал: sablibk16
0

Ответ: program ll1;

Var A: array[1..10] of integer;

i: integer;

Begin

Randomize;

For i:=1 to 10 do A[i]:=random(100);

for i:=1 to 10 do

If A[i] mod 2 = 0 then writeln(A[i]);

End.

Объяснение:

Ответ дал: Damir0602
0
Ошибочка
Ответ дал: sablibk16
0
где
Похожие вопросы