двумерные массивы

@visit · Регистрация: 01.05.2010

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

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

2) Номер строки, в котором находится самая длинная серия одинаковых элементов(оформить в виде процедуры)

Может есть у кого-нибудь идеи. Заранее благодарен!

@yanyk1n · 02.05.2010, 18:50

Pascal

uses crt;
type Arr = array[1..100,1..100]of integer;
 
var a : Arr;
i, j, N, M : integer;
 
function count(a : Arr; N, M:integer):integer;
var i, j, k:integer;
begin
    k := 0;
    for j:=1 to m do
    begin
        for i:=1 to n do if a[i,j]=0 then
        begin
            inc(k);
            break;
        end;
    end;
    count := k;
end;
    
begin
    clrscr;
    randomize;
    write('Размерность A(N,M) -> ');
    writeln('Массив A');    
    readln(n, m);
    for i := 1 to N do
    begin
        for j := 1 to M do
        begin
            a[i, j] := random(10);
            write(a[i,j]:3);
        end;
        writeln;
    end;
    writeln('Кол-во столбцов с нулевыми элементами - ',count(a, N, M));
    readln;
end.

@visit 0 / 0 / 0 Регистрация: 01.05.2010 Сообщений: 18
		1
	двумерные массивы 02.05.2010, 18:47. Показов 1057. Ответов 1 Метки нет (Все метки) уважаемые пользователи никак не могу разобраться с задачей: дана целочисленная прямоугольная матрица. Нужно определить: 1) количество столбцов, содержащих хотя бы один нулевой элемент(оформить в виде функции) 2) Номер строки, в котором находится самая длинная серия одинаковых элементов(оформить в виде процедуры) Может есть у кого-нибудь идеи. Заранее благодарен! 0

Опции темы

двумерные массивы

Решение