Массив D состоит из 25 чисел,выбранных случайным образом из интервала [-16;25]. Вывести на экран значения массива,кратные трём.

Предыдущий
вопрос Следующий
вопрос

const n=25;

var

a: array[1..n] of integer;

i: integer;

begin

randomize;

for i:= 1 to n do

a[i]:=random(41)-16;

Writeln('Source array:');

for i:= 1 to n do

write(a[i]:5);

Writeln;

Writeln('Array elements are multiples of 3:');

for i:= 1 to n do

if a[i] mod 3 = 0 then

write(a[i]:5);

readln;

end.