Задача 1. Отсортировать числовой массив. Первый способ.
USES Crt;
CONST N=30;
VAR
A:ARRAY[0..N] OF INTEGER;
I,J: BYTE; PP:INTEGER;
BEGIN
ClrScr; Randomize;
WriteLn(' Значения элементов массива ');
FOR I:=1 TO N DO Begin
A[I]:=Random(50); Write(A[I]:4);
End; WriteLn;
{ Сортировка массива }
FOR I:=2 TO N DO
FOR J:=N DOWNTO I DO
IF A[J-1]>A[J] THEN Begin PP:=A[J]; A[J]:=A[J-1]; A[J-1]:=PP; End;
WriteLn(' Отсортированный массив ');
FOR I:=1 TO N DO
Write(A[I]:4);
END.
Задача 2. Отсортировать числовой массив. Второй способ.
USES Crt;
CONST N=30;
VAR
A:ARRAY[0..N] OF INTEGER;
I,J: BYTE; PP:INTEGER;
BEGIN
ClrScr; Randomize;
WriteLn(' Значения элементов массива ');
FOR I:=1 TO N DO Begin
A[I]:=Random(50); Write(A[I]:4);
End; WriteLn;
{ Сортировка массива }
FOR I:=1 TO N-1 DO
FOR J:=I+1 TO N DO
IF A[I]>A[J] THEN Begin PP:=A[I]; A[I]:=A[J]; A[J]:=PP; End;
WriteLn(' Отсортированный массив ');
FOR I:=1 TO N DO
Write(A[I]:4);
END.
.....................................................................................................................................
Практические задания
.....................................................................................................................................
Даны два упорядоченных массива целых чисел М1 и М2. Слить их в упорядоченный массив. Рассмотреть случаи, когда массивы М1 и М2 упорядочены одинаково и когда по-разному.
