Подсчитать число элементов матрицы q [n][n], остаток от деления которых на пять равен единице. язык "си"

//pascal abc.net v3.1 сборка 1172 const   n=15;   m=10; var   ma: array[1..n,1..m] of integer;   i,j,sum,co: integer; begin   randomize;   writeln('matrix: ');   for i: =1 to n do     begin     for j: =1 to m do       begin       ma[i,j]: =random(10)-3;       write(ma[i,j]: 4);       end;     writeln;     end;   for j: =1 to m do   begin   for i: =1 to n do     if ma[i,j]> 0 then     begin       sum: =sum+ma[i,j];       inc(co);     end;   writeln('sum ',j,': ',sum);   writeln('count ',j,': ',co);   sum: =0;   co: =0;   end; end.

  только решу - интер а получилось вот что: uses crt; const n=30; type mas=array [1..n]  of integer;   var i, j , sumpol, sumotr: integer;         a: mas; begin   clrscr;   sumpol: =0;   sumotr: =0;   writeln(' sposob 1: ');   writeln;   for i: =1 to n do         begin                   a[i]: =-10+random(21);                   write (a[i]: 4);         end;   writeln;   for i: =1 to n do   begin             if (a[i]> 0) then sumpol: =sumpol+a[i];             if (a[i]< 0) then sumotr: =sumotr+a[i];   end;   writeln(' sumpol =', sumpol);   writeln(' sumotr =', sumotr);   writeln;   writeln (' sposob 2: ') ;   sumpol: =0;   sumotr: =0;   i: =1;   repeat     if (a[i]> 0) then sumpol: =sumpol+a[i];     if (a[i]< 0) then sumotr: =sumotr+a[i];     i: =i+1;   until i> 30;   writeln(' sumpol =', sumpol);   writeln(' sumotr =', sumotr);   readln; end.