ответ: 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.
Объяснение:
