Определить количество столбцов матрицы, содержащих хотя бы один нулевой элемент - Pascal ABC (16805)

Формулировка задачи:

Дана целочисленная прямоугольная матрица. Определить: 1) Количество столбцов, содержащих хотя бы один нулевой элемент; 2) Номер строки, в которой находится самая длинная серия одинаковых элементов. Спасибо за помощь

Код к задаче: «Определить количество столбцов матрицы, содержащих хотя бы один нулевой элемент - Pascal ABC (16805)»

textual
program pr;
const n=5;
      m=10;
type mas = array [1..n, 1..m] of integer;
var a : mas;
    i,j, kol, length, maxLength, num : integer;
    flag : boolean;
begin
     writeln();
     randomize;
     for i:=1 to n do
     begin
         for j:= 1 to m do
         begin
             a[i,j]:=random(10)-5;
             write(a[i,j]:4);
         end;
         writeln();
     end;
     
     kol:=0;
     for j:=1 to m do
     begin
          flag:=false;
          for i:= 1 to n do
              if a[i,j]=0
              then flag:=true;
          if flag
          then kol:=kol+1;
     end;
     writeln();
     writeln('Кол-во столбцов, содержащих нулевой эл-т ', kol);
 
     num:=0;
     maxLength:=0;
     for i:=1 to n do
     begin
          length:=1;
          for j:=2 to m do
               if (a[i,j]=a[i,j-1]) then
               begin
                    length:=length+1;
                    if (length > maxLength) then
                    begin
                         maxLength:=length;
                         num:=i;
                    end;
               end
               else length:=1;
     end;
     writeln('Номер строки c самой дл. серией одинаковых эл-тов (', maxLength, ' шт) ', num);
end.

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ