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

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

Язык программирования - 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.