Question

ПОМОГИТЕ КАК РЕШИТЬ!!!Заполнить массив, состоящий из 18 элементов, чётными числами от 2 до 36 и вывести его в столбец.

Answer 1

Ответ:

var a:array[0..50] of longint;

i,j,b:longint;

Begin

randomize;

j:=18;

for i:=1 to j do

begin

b:=random(18)+1;

a[i]:=b+b;

end;

for i:=1 to j do

writeln(a[i]);

End.