I,k,kp,n: integer; a:array[1..100] of integer;

BEGIN

m1:

Write(' Введите N >0 ');

Readln(N);

IF N <=0 THEN BEGIN

Writeln('Введено недопустимое N!');

GOTO m1

END;

K:=0;

FOR i:=1 TO N DO BEGIN

Write('Введите_',i,'-й элемент массива_');

Readln(A[i]);

END;

m2:

KP:=0;

FOR i:=1 TO (N-1) DO IF A[i]>A[i+1] THEN BEGIN

P:=A[i];

A[i]:=A[i+1];

A[i+1]:=P;

KP:=KP+1

END;

IF KP>0 THEN GOTOm2;

Writeln('Массив отсортирован:_ ');

FOR i:=1 TO N DO Write(A[i],'_');

Writeln('Нажмите Enter');

Readln;

END.

СОДЕРЖАНИЕ:

1. Операторы организации циклов 1

Оператор цикла с предусловием WHILE 1

Оператор цикла с постусловием REPEAT…UNTIL 2

Оператор цикла с параметром FOR 4

5.1. СТРУКТУРИРОВАННЫЕ ТИПЫ ДАННЫХ 7

2. Массивы 7

Назначение и структура описания массивов 7

Действия над элементами массива 9