Заполнить массив состоящие из 50 элементов в автоматическом режиме и выполнить сортировку
Заполнить массив состоящие из 50 элементов в автоматическом режиме и выполнить сортировку
Гость
Ответ(ы) на вопрос:
ГостьСортировка по возрастанию.
Program BiFi;
Const n=50;
Var a:array[1..n] of real;
i,j:integer;
k:real;
Begin
for i:=1 to n do a[i]:=random(100);
for i:=1 to n-1 do
for j:=i+1 to n do if a[j]
Не нашли ответ?
Похожие вопросы