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

@rew438125 · Регистрация: 21.11.2016

Author24 — интернет-сервис помощи студентам

9. Обработка двумерных массивов:

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

@KatrinLuxury · 21.11.2016, 15:45

3.

Pascal

uses crt;
var t:array[1..20,1..20] of integer;
    n,i,j,k,max,imax:integer;
begin
clrscr;
write('Введите размер матрицы 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('Матрица:');
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('В строке ',i,' ',k,' элементов');
   if k>max then
     begin
       max:=k;
       imax:=i;
     end;
  end;
writeln('Наибольшее количество элемеентов =',max,' в строке ',imax);
readln
end.

@rew438125 1 / 1 / 0 Регистрация: 21.11.2016 Сообщений: 23
		1
	Для целочисленной матрицы найти для каждой строки число элементов, кратных пяти, и наибольший из полученных результатов 21.11.2016, 14:38. Показов 3043. Ответов 1 Метки нет (Все метки) 9. Обработка двумерных массивов: -Для целочисленной матрицы найти для каждой строки число элементов, кратных пяти, и наибольший из полученных результатов 0

	21.11.2016, 15:45

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

Решение