Массивчик Опции

[munhoyan]

Помогите пожалуйста плиз,
Для целочисленной матрицы найти для каждой строки число элементов, кратных 5, и наибольший из полученных результатов.
Матрица: N(10,10), условия и ограничения: n(ij)/5*5=n(ij)

[kent]

munhoyan, вот так можно...

uses Crt;
const M = 10;
      N = 10;
type
    TMatrix = array [1..M,1..N] of Integer;

var mx : TMatrix;
    i,j,max : Integer;
    kratn_5 : array [1..M] of Integer;
begin
     Clrscr;
     WriteLn('Input Matrix:');
     Randomize;
     for i := 1 to M do
        for j := 1 to M do
           mx[i,j] := Random(150);
     for i := 1 to M do
        kratn_5[i] := 0;
     for i := 1 to M do
        for j := 1 to N do
           if (mx[i,j] <> 0) and ((mx[i,j] mod 5) = 0) then
             inc(kratn_5[i]);
     max := -MaxInt;
     for i := 1 to M do
        if (kratn_5[i] > max) then
          max := kratn_5[i];
     WriteLn;
     WriteLn('Sources Matrix:');
     for i := 1 to M do begin
        for j := 1 to N do
           Write(mx[i,j]:4);
        WriteLn;
     end;
     WriteLn;
     WriteLn('Result:');
     for i := 1 to M do
        WriteLn('string#',i,'->',kratn_5[i]);
     WriteLn('Great Result:',max,';');
     ReadKey;
end.

Если матрицу нужно вводить вручную, немного подправишь...