Измените программу так что: Число элементов массива формировалось случайным образом из диапазона [-50;9]. Вывод массива осуществлялся в столбец.
Программа:
Program pr1;
Var mas:array[1..100] of integer;
i:integer;
Begin
Randomize;
For i:=1 to 100 do
begin
mas:=Random(108);
Write(mas[i]);
end;
END.

BEAR58    1   18.04.2020 21:50    2