заполнить массив состоящие из 50 элементов в автоматическом режиме и выполнить сортировку

Question

Информатика

Аполлония

3 сентября, 15:56

заполнить массив состоящие из 50 элементов в автоматическом режиме и выполнить сортировку

+2

Ответы (1)

Знаете ответ?

Видина · Answer 1

Сортировка по возрастанию.

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.