👤
ADELINAIPATIEZ
a fost răspuns

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

Răspuns :

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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari