ПОМОГИТЕ ПАСКАЛЬ!! НУЖНА ПОМОЩЬ, ВСЁ ОЧЕНЬ ПЛОХО!! Переставить местами первую и последнюю...

Question

ПОМОГИТЕ ПАСКАЛЬ!! НУЖНА ПОМОЩЬ, ВСЁ ОЧЕНЬ ПЛОХО!!
Переставить местами первую и последнюю строки в матрице.

Comments

Еще раз увижу Ваще "ПОМОГИТЕ ПАСКАЛЬ!! НУЖНА ПОМОЩЬ, ВСЁ ОЧЕНЬ ПЛОХО!!" - не стану решать. Это чистейший спам, кому интересно, плохо Вам или хорошо? Тут не благотворительный сайт и не анонимные беседы с психологами.

---

хех)

Answer 1

Const
  m=6;
  n=8;
var
  a:array[1..m,1..n] of integer;
  i,j,r:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i,j]:=Random(100);
      Write(a[i,j]:3)
    end;
    Writeln
  end;
  for j:=1 to n do
  begin r:=a[1,j]; a[1,j]:=a[m,j]; a[m,j]:=r end;
  Writeln('Результирующий массив');
  for i := 1 to m do
  begin
    for j := 1 to n do Write(a[i,j]:3);
    Writeln
  end
end.

Тестовое решение:
Исходный массив
  6 93 10  3 80  4 47 71
 33 33 75 85 93 22 53 16
 83 30 39 95 35 53 30 83
 29 43 83 54 88 83 49 67
 24 67 47 97 82 40 67 35
 42 26 67 23 28  8  8 45
Результирующий массив
 42 26 67 23 28  8  8 45
 33 33 75 85 93 22 53 16
 83 30 39 95 35 53 30 83
 29 43 83 54 88 83 49 67
 24 67 47 97 82 40 67 35
  6 93 10  3 80  4 47 71