Заполнить массив, состоящий из 18 элементов, чётными числами от 2 до 36 и вывести его в столбец.

DPAKOSHKA DPAKOSHKA    2   01.12.2020 16:21    1

Ответы
alex54789089 alex54789089  31.12.2020 16:26

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика