Введите из текстового файла целочисленную матрицу размером 6x8. Переверните матрицу, поменяв 1-ю строку с 6-й строкой, 2-ю строку

const
  n = 6;
  m = 8;
type mas = array[1..n,1..m] of integer;
var
  a : mas;
  i, j : integer;
  f : text;
begin
  assign(f, 'mtrx.txt');
  rewrite(f);
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(20) - 10;
      write(f, a[i,j]:4)
    end;
    writeln(f)
  end;
  close(f);
  writeln('Файл записан');
  readln
end.

За 1 часть: 999 490‚ 46 000 000, 999 500 000, 400 000 000 000за 2 часть: 50×(6+3)=450(м)ответ: 450 м.другой способ: 50×6+50×3=450(м)ответ: 450 м.