Question

Imi trebue a 13 conditie ( item )
Alcatuiti programul in limbajul pascal

Answer 1

Program brainly;

var

 tablou : array[1..100, 1..100] of integer;

 i,j,n,suma,produs:integer;

begin

write('Dati n:');

read(n);

 writeln('Dati valorile tabloului:');

 suma:=0;

 produs:=1;

 for i:=1 to n do

   for j:=1 to n do

   begin

   

   write('A[',i,'][',j,']=');

   read(tablou[i][j]);

   

   end;

   i:=2;

    for j:=1 to n do

   begin

   

   if tablou[i][j] > 0 then suma:=suma+tablou[i][j];

   if j = n then i:=i+2;

   

   end;

   i:=1;

    for j:=1 to n do

   begin

   

   if tablou[i][j] < 5 then produs:=produs*tablou[i][j];

   if j = n then i:=i+2;

   

   end;

   writeln('S=',suma);

   writeln('P=',produs);

   

 

end.