Предмет: Информатика, автор: vint2com

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

Ответы

Автор ответа: AlvaroMarvin
0

Ответ:

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.

Похожие вопросы
Предмет: Химия, автор: mrdanlebedev7
Предмет: Математика, автор: sssbat1