Question

Пожалуйста... Заполнить массив из 10 элементов случайными числами. исходный массив : 4 -5 3 10 -4 -6 8 - 10 1 0. Pascal

Answer 1

Не знаю, в каком промежутке должны быть случайные числа, поэтому решил что в промежутке от 0 до 99. Если что можете изменить

program a2;

var

 massiv: array [1..10] of integer;

 i: integer;

begin

 for i := 1 to 10 do

 begin

   readln(massiv[i]);

   massiv[i] := random(100);

 end;

 for i := 1 to 10 do

   write(massiv[i], ' ');

end.