👤
Adelinaipati
a fost răspuns

Vă rog mult..Ofer multe puncte..
Se considera matricea B[1..3,1..3], întregi
Elaborați un program care schimbă cu locul prima linie cu ultima linie

Răspuns :

var

 B:array[1..3,1..3] of integer;
 i,j,aux:integer;
 
begin

 for i:=1 to 3 do
  for j:=1 to 3 do
   read(B[i][j]);
   
 for i:=1 to 3 do
  begin
   aux:=B[1][i];
   B[1][i]:=B[3][i];
   B[3][i]:=aux;
  end;
  
 for i:=1 to 3 do
  begin
   for j:=1 to 3 do
    write(B[i][j],' ');
   writeln;
  end;
   

end.