В квадратной матрице размером M*M...

@crazybober · Регистрация: 06.04.2009

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

Доброго времени суток Уважаемые Программисты!
помогите пожалуйста решить следующую задачу....

В квадратной матрице размером M*M, имеющей Имя МНМ, содержатся целые числа. М-число строк и столбцов. Ввести элементы матрицы с клавиатуры.Определить и вывести на экран число элементов равных 1 в каждой строке. Определить строку с минимальным числом единиц и вывести ее на экран

Заранее благодарю!

@kdslg · 09.04.2009, 22:10

Сообщение от crazybober

Доброго времени суток Уважаемые Программисты!
помогите пожалуйста решить следующую задачу....

В квадратной матрице размером M*M, имеющей Имя МНМ, содержатся целые числа. М-число строк и столбцов. Ввести элементы матрицы с клавиатуры.Определить и вывести на экран число элементов равных 1 в каждой строке. Определить строку с минимальным числом единиц и вывести ее на экран

Заранее благодарю!

Pascal

Const 
    N=10;
Var
    MHM:Array[1..N,1..N] of Integer;
    One:Array[1..N] of Integer;
    Max,MaxI,I,J:Integer;
begin
    For I:=1 to N do
      begin 
        ForJ:=1 to N do Read MHM[I,J];
        Writeln;
      end;
For I:=1 to N do
   For J:=1 to N do
        If MHM[I,J]=1 then One[I]:=One[I]+1;    
MaxI:=0;
Max:=0;
  For I:=1 to N do
    If One[I]>Max then 
         begin
            MaxI:=I;
            Max:=One[I]
         end;
Writeln;
Writeln('Количество единиц по строкам');
For I:=1 to N do Writeln(One[I]);
Writeln;
Write('Максимальное количество единиц в ');
Write(MaxI);
Write(' строке');Writeln;
Write('и равно '); 
Write(Max);    
end.

@crazybober · 09.04.2009, 22:19 **[ТС]**

Огромное спасибо!!=)

@crazybober 0 / 0 / 0 Регистрация: 06.04.2009 Сообщений: 30
		1
	В квадратной матрице размером MM... 09.04.2009, 21:54. Показов* 2361. Ответов 2 Метки нет (Все метки) Доброго времени суток Уважаемые Программисты! помогите пожалуйста решить следующую задачу.... В квадратной матрице размером M*M, имеющей Имя МНМ, содержатся целые числа. М-число строк и столбцов. Ввести элементы матрицы с клавиатуры.Определить и вывести на экран число элементов равных 1 в каждой строке. Определить строку с минимальным числом единиц и вывести ее на экран Заранее благодарю! 0

@crazybober 0 / 0 / 0 Регистрация: 06.04.2009 Сообщений: 30
	09.04.2009, 22:19 [ТС]	3
	Огромное спасибо!!=) 0

В квадратной матрице размером M*M...

Решение