Question

Сделать Блок-Схему и программу в Pascal Сгенерировать элементы массива вещественного типа случайным образом в заданном диапазоне [a;b] согласно варианту: a=-100 b=107. Упорядочить данный массив в порядке возрастания

Answer 1

Зачем нам вещественный массив?

var

i, j, n: integer;

tmp: double;

mas: array[1..101] of double;

begin

randomize;

readln(n);

for i:=1 to n do

begin

 mas[i]:= random(-100,107);

end;

for i:=1 to n do

 for j:=1 to n do

   if mas[j]>mas[j+1] then

   begin

     tmp:=mas[j];

     mas[j]:=mas[j+1];

     mas[j+1]:=tmp;

   end;

for i:=1 to n do

write(mas[i], ' ');

end.