Матрица

[Sergei47]

Матрица

помогите плиз_Ик.. у меня щас контроХа...
Определить количество единиц в матрице [ 2, 6] и индекс первой встречающейся единицы !..
пожайлуста !! помогите.

 

[Vladimir_S]

помогите плиз_Ик.. у меня щас контроХа...
Определить количество единиц в матрице [ 2, 6] и индекс первой встречающейся единицы !..
пожайлуста !! помогите.

Язык? Как вводится матрица? [ 2, 6] - это что: 2 строки и 6 столбцов? Да напишите же, черт побери, хотя бы задание внятно!!!

 

[Sergei47]

ПАСКАЛЬ !!!

 

[Sergei47]

да столбцов и строк , просто контрольная и не когда трепыхаться , спасибо за рание !!!

 

[Sergei47]

помогите пожайлуста !.

 

[Vladimir_S]

помогите плиз_Ик.. у меня щас контроХа...
Определить количество единиц в матрице [ 2, 6] и индекс первой встречающейся единицы !..
пожайлуста !! помогите.

Ладно, ввод матрицы пишите сами, как знаете, а решение задачки вот:

VAR
 A:ARRAY[1..2, 1..6] of INTEGER;
 i,j,i1,j1,Num:INTEGER;
 b:BOOLEAN;
BEGIN
 { Ввод матрицы }
 { ... }
 Num:=0;
 b:=TRUE;
 FOR i:=1 TO 2 DO
  FOR j:=1 TO 6 DO
    IF A[i,j]=1 THEN 
     BEGIN
       INC(Num);
       IF b THEN
         BEGIN
           i1:=i;
           j1:=j;
           b:=FALSE;
         END;
     END;
 WriteLn('First "1" position is [',i1,',',j1,']');
 WriteLn('Number of "1" is ', Num);
 ReadLn;
END.

 

[Sergei47]

Спасибо

 

[Vladimir_S]

Спасибо

Ох, извинте - ошибку нашел. Строка должна быть:
WriteLn('First "1" position is [',i1,',',j1,']');
В тексте поправил.