Rezultatul este in atasament.
Important, pentru a gasi elementele sub diagonala principala incepem de la i=2, caci pentu i=1 apartine diagonalei principale a matricii. Pentru i=n , numarul de elemente j va fi egal j=n-1. De exemplu:
a[2][1]
a[3][1] a[3][2]
a[4][1] a[4][2] a[4][3]
...............................................
a[n][1] a[n][2] a[n][3] a[n][n-1]
Program diviz5;
uses crt;
var
a:array[1..10,1..10] of integer;
i,k:byte;
m,n,k:word;
begin clrscr;
TextColor(LightGreen);
writeln;
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,',',,j,']=');
readln(a[i,j]);
end;
writeln('avem tabloul-->>');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
k:=0;
for i:=2 to n do
for j:=1 to n-1 do begin
if (j<i) and (a[i,j] mod 5 = 0) then inc(k);
writeln;
writeln('numarul elementelor divizibile la 5 sub diagonala principala este ');
readln;
end.
