Question

se da un tablou bidimensional B[1..3,1..3] de numere intregi sa se scrie un program PASCAL care va calcula suma numerelor pozitive divizibile la 3​

Answer 1

Răspuns:

   var

       B: array[1..3, 1..3] of Integer;

       i, j, suma: Integer;

begin

   for i := 1 to 3 do begin

       for j := 1 to 3 do begin

           Write('B[', i, ',', j, '] = ');

           Readln(B[i, j]);

       end;

   end;

   suma := 0;

   for i := 1 to 3 do begin

       for j := 1 to 3 do begin

           b (B[i, j] > 0) and (B[i, j] mod 3 = 0) then begin

               suma := suma + B[i, j];

           end;

       end;

   end;

   WriteLn('Suma: ', suma);

end.

Explicație: