четверг, 23 ноября 2017 г.

Программа для 9 класса, которую надо исправить, чтобы работала сортировка массива

program AAA1;
var
AAA : array[1..10] of integer;
i, B : integer;
Label
L0,L1,L2,L3,L4,L5,L6,L7,L8,L_END;
begin
writeln('================');
L0:;
i:=1;
L1:;
read(AAA[i]);
if (i <> 9) then goto L2;
writeln('****************');
i:=1;
L3:;
if AAA[i] < AAA[i+1] then goto L4;
{if (i <> 9) then goto L5;}
{i:=1;}
 L5:;
{writeln(i,'++++');}
i:=i+1;
if (i <> 9) then goto L3;
{writeln('================');}
i:=1;
L7:;
writeln(AAA[i]);
if (i <> 9) then goto L8;
goto L_END;
L2:;
i:=i+1;
goto L1;
L4:;
B:=AAA[i];
AAA[i]:=AAA[i+1];
AAA[i+1]:= B;
goto L5;
L6:;
i:=i+1;
goto L3;
L8:;
i:=i+1;
goto L7;
L_END:;
end.

Комментариев нет: