В матрице найти для каждой строки число элементов кратных пяти ( Pascal )

[yul111-95]

Задача 2 . Для малочисленной матрицы найти для каждой строки число элементов кратных пяти и наибольший из полученных результатов вывести на экран.
Подскажите, как сделать, чтобы было для малочисленных, а не целочисленных матриц?

program stroka;
uses crt;
var
i,j,n,max,min,sum,sum1:integer;
t:array[1..20,1..15] of integer;
begin
clrscr;
writeln('Vvedite razmer matricy n=');
readln(N);
for i:=1 to n do
for j:=1 to n do
  Begin
    write('t[', i, ',', j, '] ');
    readln(t[i j])
   End;
 
max:=0;
for i:=1 to n do begin
sum:=0;
for j:=1 to n do begin
sum:=sum+t[i,j];end;  if sum>max then max:=sum; end;  
writeln('Naibolshaia suma elementov',max);
 
min:=99;
for i:=1 to n do begin
sum1:=0;
for j:=1 to n do begin
sum1:=sum1+t[i,j];end; if sum1<min then min:=sum1;end;      
writeln('Naimenshay suma elementov',min); readln;
end.

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[kventin_zhuk]

Ну для начала расскажите что вы понимаете под "малочисленные матрицы". Я вот такого не знаю. И где в своём коде вы проверяете кратность элемента 5-ти?

[yul111-95]

Я изменила программу, сейчас правильно?

program stroka;
uses crt;
var t:array[1..20,1..20] of integer;
    n,i,j,k,max,imax:integer;
begin
clrscr;
write('Vvedite razmer matricy n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
   begin
    write('t[', i, ',', j, '] ');
    readln(t[i,j]);
   end;
clrscr;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(t[i,j]:4);
    writeln;
  end;
max:=0;imax:=1;
for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do
   if t[i,j] mod 5=0 then
   k:=k+1;
   writeln('V stroke ',i,' ',k,' elementov');
   if k>max then
     begin
       max:=k;
       imax:=i;
     end;
  end;
writeln('Naibolshae kolichestvo elementov=',max,' v stroke ',imax);
readln
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[kventin_zhuk]

Этот код, в добавок ещё ищет номер строки. Вы хотя бы её запустили, или просто так нам их с гугла кидаете? Если нет - то самое время.