Question

заполнить массив из 10 элементов целыми числами дел. на 3 без остатка

Answer 1

Const n=10;
Var A:array[1..n] of integer;   
i:integer;
Begin   
For i:=1 to n do   
Begin     
A[i]:=random(31);     
if A[i] mod 3 = 0 then
write(A[i]:4);   
End;
end.