Программа заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. (паскаль)

дима55922 дима55922    3   20.05.2019 00:30    2

Ответы
ритуа ритуа  13.06.2020 06:55

Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.

 

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