Предмет: Информатика,
автор: vint2com
ПОМОГИТЕ КАК РЕШИТЬ!!!Заполнить массив, состоящий из 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.
Похожие вопросы
Предмет: Русский язык,
автор: lexa77771
Предмет: Математика,
автор: Rozhkov081
Предмет: Химия,
автор: mrdanlebedev7
Предмет: Обществознание,
автор: Giid
Предмет: Математика,
автор: sssbat1