Cоставить программу, которая формирует массив из 16 случайных целых чисел от -20 до 20 и...

Question

Cоставить программу, которая формирует массив из 16 случайных целых чисел от -20 до 20 и выводит элементы, кратные 3. На экран выводится исходный массив и найденные элементы.

Answer 1

Const n=16;
var a:array[1..n] of integer;   
i:integer;
begin
for i:=1 to n do begin 
a[i]:=random(40)-20;
write (a[i], ' ');
end;
writeln;
for i:=1 to n do
if (a[i] mod 3)=0 then write (a[i], ' ');
end.