Одномерные и двумерные массивы

const
  N = 10; // Кол-во элементов
var
  a: array [1 .. N] of real;
  i: integer;
 
begin
  Randomize; // Для генерации случайных чисел
  for i := 1 to N do // Заполняем массив
  begin
    a[i] := Random(100) + 1;
    WriteLn(a[i]:0:0);
  end;
  WriteLn;
 
  for i := 1 to 10 do
  begin
    if (i mod 2 = 0) then // На четных позициях
    begin
      a[i] := a[i] / 2;
      WriteLn(a[i]:0:3);
    end
    else // На нечетных
    begin
      a[i] := a[i] * 2;
      WriteLn(a[i]:0:3);
    end;
  end;
  ReadLn;
end.

const
  M = 5; // Кол-во строк
  N = 5;
  // Кол-во столбцов
var
  a: array [1 .. M, 1 .. N] of integer;
  i, j, temp: integer;
 
begin
  Randomize; // Для генерации случайных чисел
  for i := 1 to M do // Заполняем массив
  begin
    for j := 1 to N do
    begin
      a[i, j] := Random(10);
      Write(a[i, j], ' ');
    end;
    WriteLn;
  end;
 
  WriteLn;
  for j := 1 to N do // Инвертируем столбцы
  begin
    for i := 1 to (M div 2) do
    begin
      temp := a[i, j];
      a[i, j] := a[M - i + 1, j];
      a[M - i + 1, j] := temp;
    end;
  end;
 
  for i := 1 to M do // Выводим
  begin
    for j := 1 to N do
      Write(a[i, j], ' ');
    WriteLn;
  end;
  ReadLn;
end.