1.Заполнить массив состоящий из 20 чисел с клавиатуры и вывести все его элементы в столбик.Вычислить сумму элементов массива.
2.Задайте с генератора случайных чисел массив размерностью 100 элементов в диапазоне [-56;47]. Вычислить произведение элементов массива​

Program Djonny1981;
uses crt;
const
  m=5;
var
  a: array[1..m,1..m] of integer;
  i, j: integer;
  sum: integer;
begin
  randomize;
  sum:=0;
  for i:=1 to m do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:5);
        end;
        writeln();
    end;
  for i:=1 to m do
    for j:=1 to m do
      if j mod 2 = 0 then {вот здесь проверка, чётный ли столбец}
         sum := sum + a[i,j];
  writeln('Сумма элементов чётных столбцов равна ',sum);
  if sum>0 then
      for i:=1 to m do
        for j:=1 to m do
          if i mod 2 = 1 then
            a[i,j]:=a[i,j]*a[i,j]
    else
      for i:=1 to m do
        a[m-i+1,i]:=a[m-i+1,i]+2;
  for i:=1 to m do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln();
    end;
end.

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.