Цитата:
Сообщение от Sergei47
помогите плиз_Ик.. у меня щас контроХа...
Определить количество единиц в матрице [ 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.