👤
a fost răspuns

De elaborat un program care calculeaza intr-un tabel bidemisional 5x5 de numere intregi : calculeaza suma elementelor negative. Limbaj Pascal

Răspuns :

GAFENCUMIHAIOYDUPXEZ
program matrice_suma_negative;
type matrice=array[1..5,1..5] of integer;

var  a:matrice;
i,j,s:integer;

begin

{citirea elementelor tabloului}
for i:=1 to 5 do
for j:=1 to 5 do 
begin
write('a[',i,',',j,']=');readln(a[i,j]); end;

{initializare suma}
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
begin 
   if a[i,j]<0 then 
     s:=s+a[i,j];   {calcul suma}
end;

{afisaj}
writeln('Suma este:',s);

readln;
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