Задание: 1<= N <= 10 Заполнить с клавиатуры одномерный массив А размерностью А[1..N] целыми числами в диаразоне (0-99) Вывести элементы массива в одну срочку, на каждый элемен по 3 знака. Поменять местами элементы массива A[1] и A[N], A[2] и A[N-1] ... Вывести элементы массива в одну срочку, на каждый элемен по 3 знака. Написать алгоритм сортировки смотрим алгоритм § 20. Обработка массивов. Вывести элементы массива в одну срочку, на каждый элемен по 3 знака.
Паскаль

Const
  maxN = 100; // Максимальное кол-во элементов массива
var
  n, i: longint;
  middle, sum, sum2: real; // Может быть нецелым числом
  a: array[1..maxN] of real;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
  write('Введите элементы массива через пробел: ');
  for i := 1 to n do begin
    read(a[i]);
    sum := sum + a[i];
  end;
  middle := sum / n; // Вычисляем среднее арифметическое
  writeln('Среднее арифметическое = ', middle);
  sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
  for i := 1 to n do
   if a[i] < middle then
     sum2 := sum2 + a[i];
  writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.

 

  uses   crt;   var   a: array [1..20, 1..20] of real;   i, j, k, n, s: integer;   begin   clrscr;   write('Введите размер матрицы: ');   read(n);   for i := 1 to n do     for j := 1 to n do     begin       write('A[', i, ',', j, ']= ');       readln(a[i, j]);     end;   WRITELN;   WRITELN;   writeln('Исходная матрица ', n, 'x', n, ': ');   for i := 1 to n do   begin     for j := 1 to n do       WRITE(a[i, j]:2:0, ' ');     WRITELN;   end;   k := 0;   for i := 1 to n do   begin     for j := 1 to n do     begin       if a[i, j] = 0 then       begin         k := k + 1;         s := s + 1;       end;     end;     if k = n then writeln(i, ' строка состоит из нулей! ');     k := 0;   end;   if s = 0 then writeln('В матрице нет нулевых строк'); end.