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