Question

Дан одномерный массив, состоящий из 10 чисел. Определить, является ли массив упорядоченным по возрастанию или убыванию.Pascal ABC

Answer 1

1) var mas:array[1..10] of Integer;
        i:integer;
begin
        i := mas[1];
        mas[1] := mas[6];
        mas[6] := i;
end.
Вот как то так