Пара вопросов насчет первой задачи:
VAR
A:ARRAY[1..5,1..6] of REAL;
i,j,p,Q:INTEGER;
BEGIN
FOR i:=1 TO 5 DO
BEGIN
FOR j:=1 TO 6 DO
BEGIN
Write('A[',i:2,',',j:2,'] = ');
ReadLn(A[i,j]);
END;
END;
Q:=0;
FOR i:=1 TO 5 DO
BEGIN
p:=0;
FOR j:=1 TO 6 DO
IF A[i,j]<0 THEN p:=p+1;
IF p=2 THEN
BEGIN
Write(i);
Q:=Q+1;
END;
WriteLn;
IF Q=0 THEN
WriteLn('Array contains no strings with 2 negative elements');
END;
END.
Я добавила
это, иначе программа выводила A[ 1, 1] = A[ 1, 2] = A[ 1, 3] = A[ 1, 4] = A[ 1, 5] ...
И что-то не ладится с
этим. Т.е. если 2 отрицательных элемента находатся в первой строке, то все нормально: программа выдает 1. Но если во второй строке -
Array contains no strings with 2 negative elements
2
В третьей строке -
Array contains no strings with 2 negative elements
Array contains no strings with 2 negative elements
3