Question

Va rog mult..Ofer multe puncte
Se da matricea B[1..4, 1..4]
Sa se scrie un program care sa zerografieze elementele de pe diagonala

Answer 1

var

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

 for i:=1 to 4 do
  for j:=1 to 4 do
   begin
    read(B[i][j]);
    if(i=j) or (j=5-i) then
     B[i][j]:=0;
   end;
   
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    write(B[i][j],' ');
   writeln;
  end;
 
end.