Составьте блок-схему и напишите программу, которая отсортирует массив А(5) по возрастанию.

Question

Составьте блок-схему и напишите программу, которая отсортирует массив А(5) по возрастанию.

Answer 1

var k,i,j:integer;

a:array[1..5]of integer;

begin

for i:=1 to 5 do begin

for j:=1 to 4 do begin

if a[j]>a[j+1] then begin

k:=a[j+1];

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

a[j]:=k;

end;

end;

end;

end.