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

Question

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

Answer 1

Var
    a: array[1..100] of integer;
    i, n: integer;
    k: integer;

begin
    {ввод массива}
    n := 20;
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        a[i] := random(30 + 1) + 1;
        write(a[i], ' ');
    end;
    writeln();
    
    writeln('Выбранные:');
    for i := 1 to n do
        if a[i] mod (2 * 3) = 0 then
            write(a[i], ' ');
end.