для целочисленной матрицы найти для каждой строки число элементов кратных пяти, и наибольший из полученных результатов n(10;10) Nij/5*5=Nij (с подпрограммой и без)
Спасибо большое, работает.
program aaa;
Var n:array[1..10, 1..10] of integer;
k: array[1..10]of integer;
i, j, max :integer;
begin
writeln('Исходная матрица: ');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
n [ i, j ]:= Random(100);
write( n [ i, j ] :3,' ');
end;
writeln;
end;
for i := 1 to 10 do
for j := 1 to 10 do
if n [ i, j ] mod 5 = 0 then k [ i ]:=k [ i ]+1;
for i := 1 to 10 do
writeln('В ', i,' строке ', k [ i ], ' элемента (ов) кратных 5' );
max:=k[1];
for i := 2 to 10 do
if k [ i ] > max then max:=k [ i ];
writeln('Наибольший из полученных результатов=', max );
end.
⇢