Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Сортировка по возрастанию.
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] k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
end.