матрица B(n,n). поменять местами.

[bratello41]

помогите балбесу =)

Ввести массив В(n, n). поменять местами первую и последнюю строку. вывести преобразованную матрицу и значения элементов побочной диагонали.

[ROMA2PVT]

for j:=1 to n do
begin
 t:=a[1,j];
 a[1,j]:=a[n,j];
 a[n,j]:=t;
end;

[bratello41]

можно полностью?

[ROMA2PVT]

чё матрицу не в состоянии заполнить?

Uses
   CRT;
var
  mas: array [1..100,1..100] of integer;
  i,j,n,t:integer;

begin
Clrscr;
randomize;
  write('Количество строк и столбцов: ');
  readln(n);
  writeln('Исходная матрица: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
           mas[i,j]:=random(10)-3;
             write(mas[i,j]:3,' ');
        end;
      writeln;
    end;
    writeln;
    for j:=1 to n do
     begin
         t:=mas[1,j];
         mas[1,j]:=mas[n,j];
         mas[n,j]:=t;
end;

    writeln('Результирующая матрица: ');
    for i:=1 to n do
    begin
      for j:=1 to n do
        begin
        write(mas[i,j]:3,' ');
        end;
        writeln;
        end;
        writeln;
        writeln('Побочная диагональ: ');
        for i:=1 to n do
        begin
        write(mas[i,n-i+1]:2,' ');
        end;
 readkey;
end.

[Grag]

Или так (без использования дополнительных переменных):

for j:=1 to n do
  begin
    a[1,j]:=a[1,j]+a[n,j];
    a[n,j]:=a[1,j]-a[n,j];
    a[1,j]:=a[1,j]-a[n,j]
  end;

[bratello41]

спасибо огромное позже проверю отпишусь работает или нет =)

[ROMA2PVT]

ХаХ. ещёб не работала.

[[Danil]]

СПАСИБОООО!!!)) Все отлично))

сорри!
написал с ника друга! (bratello41)