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

Язык программирования - Pascal.

В комментах (обозначаются //, изготовлены курсивом) досконально пояснено, что и как делается.

Создадим все нужные переменные

var //объявляем переменные.
massiv:array[1..20] of integer; //создаем массив, назвав его "massiv". integer - тип переменной, целочисленное значение.
a: integer; //создаем переменную a. Тип переменной - целочисленный.

Перебегаем к самой сложной доли - созданию циклов 

begin //операторная скобка.
randomize; //включение генератора случайных чисел.
for a := 1 to 20 do // творенье цикла. Буквально:"Для переменной а от 1 до 20 сделать".
massiv[a] := Random(30); //присваиваем массиву случайные значения до 30.
for a := 1 to 20 do // творение цикла. Буквально: "Для переменной а от 1 до 20 сделать".
if (massiv[a] mod 2 = 0) and (massiv[a] mod 3 = 0) then //Буквально: Если а при дроблении по модулю на 2 дает в остатке 0 или если а при дроблении по модулю на 3 дает в остатке 0.
write(massiv[a], ); //вывести на экран значение а, которое удовлетворяет циклу. употребляется в качестве пробела.
end. // операторная скобка.

Запустим программку. Она была успешно выполнена. В моем случае ответы вышли последующими:

• 6;
• 6;
• 24;
• 0;
• 24.

var a : array [1..20] of integer; i : integer; begin for i := 1 to 20 do begin // Дополнительная конструкция begin/end была введёна, так как в данном цикле находятся два оператора (1 gt;). a [i] := random (30) + 1; if (a [i] mod 3 = 0) and a [i] mod 2 = 0) then writeln (a [i], ); end; readln; end.