👤
Idiaciuc
a fost răspuns

(Elaborati un program turbo pascal)se considera tabloul a [1..n ,1..n ],<100 de numere reale distinte . Scrieţi un program care determina suma elementelor positive din rândurile pare si produsul elementelor mai mici ca 5 din coloanele impare. va rog urgent!!!!

Răspuns :

program Miercuri05dec;

var T: array[1..100, 1..100] of real;

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

begin

 write('n='); read(n);

 writeln('introdu ',n*n,' elemente ale tabloului bidimensional:');

 for i:=1 to n do

    for j:=1 to n do

          read(T[i,j]);

 suma:=0;  produs:=1;

 for i:=1 to n do

   for j:=1 to n do

      begin

         if (T[i,j]>0)and(i mod 2=0)

                   then suma:=suma+T[i,j];

         if (T[i,j]<5)and(j mod 2 =1)

                   then produs:=produs*T[i,j];

      end;

 writeln(' suma elem poz din randuri pare = ', suma);

 writeln(' prod elem mai mici ca 5 din coloane impare= ',produs);

end.

Alte intrebari