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

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


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.


Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Доброго времени суток программисты! Вот такая задачка вызвала затруднение: С клавиатуры вводятся четыре пары координат точек в произвольном порядке(гарантируется, что они не лежат на одной прямой), определить являются ли эти точки вершинами параллелограмма. Подскажите пожалуйста с программой или с алгоритмом осуществления, заранее благодарен.

  1. Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал. Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cubes; uses crt; var x,x1,x2,x3,x0,y,z,k,n:integer; s:string; f,g:text; begin assign(f,'cubes.dat'); reset(f); readln(f,y); close(f) ; x3:=8; x1:=sqr(y-2)*6; x0:=(sqr(y-2))*(y-2); x2:=(y-2)*4*2+(y-2)*4; assign(g,'cubes.sol'); rewrite(g); writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3); close(g); end.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. Помогите написать программу Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).

  1. Найти количество цифр, равных 0, в заданном натуральном числе.

  1. Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле действительное (масса вещей в килограммах). Определить: а) число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей, которых превосходит среднее; б) имеется ли пассажир, багаж которого состоит из одной вещи массой менее Т [кг]. файл должен создаваться программой