ПОМОГИТЕ КАК РЕШИТЬ!!!Заполнить массив, состоящий из 18 элементов, чётными числами от 2 до 36 и вывести его в столбец.
Ответы
Ответ дал:
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.
Похожие вопросы
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад