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

Question

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

Answer 1

Program chet;  
 
var  
   a:array[1..20] of integer;
   i: integer;
begin
  randomize;
  for i := 1 to 20 do
    a[i] := Random(30);
  for i := 1 to 20 do
    if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then
      write(a[i], ' ');
end. 

Comments

это правильно?