Массив 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.