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

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

Const n=4; m=5; var a: array[1..n,1..m] of integer; i,j,max,min: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(201)-100;     write(a[i,j]: 4);   end;   writeln;   end; max: =a[1,1]; min: =a[1,1]; for i: =1 to n do   for j: =1 to m do   begin   if a[i,j]> max then max: =a[i,j];   if a[i,j]< min then min: =a[i,j];   end; writeln('max = ',max,' min = ',min); writeln('среднее арифметическое = ',(max+min)/2); end. пример: исходный массив:     5   -9 -12   -2   88   -9 -93 -60   8   30   72   50 -56 -39 -29   13 -89 -28 -22   29 max = 88 min = -93 среднее арифметическое = -2.5

1. вывести на экран n чисел, в порядке чередования  (например если n = 9, то ответом будет 1 9 2 8 3 7 4 6 5) 2. найти наибольший общий делитель и наименьшее общее кратное двух чисел. 3. вывести введенную строку в обратном порядке. решения на pascal: 1. var n, i: integer; begin   read(n);   for i : = 1 to n do     if odd(i) then write(i div 2 + 1, ' ')     else write(n - i div 2 + 1, ' ') end. 2. var a, b, a1, b1, t: integer; begin   read(a, b);   a1 : = a;   b1 : = b;   repeat     t : = a mod b;     a : = b;     b : = t;   until b = 0;   writeln('нод=', a);   writeln('нок=', a1 * b1 div a); end. 3. var s, s1: string;     i: integer; begin   read(s);   s1 : = '';   for i : = length(s) downto 1 do     s1 += s[i];   write(s1) end.