Составьте программу ,которая заполняет массив а [1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы ,значения которых являются четными и кратными 3.

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

const n=20;

var

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

 i: integer;

begin

randomize;

 for i:= 1 to n do

  a[i]:=random(29)+1;

 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) and (a[i] mod 2 = 0) then

   write(a[i]:5);

 readln;

end.