Помогите решить задачу

[Гринч]

Помогите решить задачу

Помоги пожалуйсто с решением задач на Паскале...

3. Дан двумерный массив A[10*15] . Определить, есть ли в данном массиве строка, в которой ровно 2 отрицательных элементов. Вывести номер строки на экран.
4. В матрице A[12*12] в каждом третьем столбце найти максимальное число, записать в результирующий массив.

и если можно, блок схемы тоже..........
заранее спасибо..........

 

[Vladimir_S]

Помоги пожалуйсто с решением задач на Паскале...

3. Дан двумерный массив A[10*15] . Определить, есть ли в данном массиве строка, в которой ровно 2 отрицательных элементов. Вывести номер строки на экран.
4. В матрице A[12*12] в каждом третьем столбце найти максимальное число, записать в результирующий массив.

и если можно, блок схемы тоже..........
заранее спасибо..........

VAR
A:ARRAY[1..10,1..15] of REAL;
i,j,p,Q:INTEGER;
BEGIN
FOR i:=1 TO 10 DO
FOR j:=1 TO 15 DO
BEGIN
Write('A[',i:2,',',j:2,'] = ');
RealLn(A[i,j]);
END;
Q:=0;
FOR i:=1 TO 10 DO
BEGIN
p:=0;
FOR j:=1 TO 15 DO
IF A[i,j]<0 THEN p:=p+1;
IF p=2 THEN
BEGIN
Write(i:3);
Q:=Q+1;
END;
END;
WriteLn;
IF Q=0 THEN WriteLn('Array contains no strings with 2 negative elements');
ReadLn;
END.

VAR
A:ARRAY[1..12,1..12] of INTEGER;
B:ARRAY[1..4] of INTEGER;
i,j,MAX:INTEGER;
BEGIN
FOR i:=1 TO 12 DO
FOR j:=1 TO 12 DO
BEGIN
Write('A[',i:2,',',j:2,'] = ');
RealLn(A[i,j]);
END;
FOR j:=1 TO 4 DO
BEGIN
MAX:=-32000;
FOR i:=1 TO 12 DO
IF A[i,3*j]>MAX THEN MAX:=A[i,3*j];
B[j]:=MAX;
END;
FOR j:=1 TO 4 DO
Write(B[j]:7);
WriteLn;
ReadLn;
END.

А насчет блок-схем - извините, помочь не могу: никогда вычерченными по стандарту блок-схемами не пользовался и даже не учился их чертить.

 

[ummasha]

Пара вопросов насчет первой задачи:
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

 

[Vladimir_S]

Маша, спасибо за замечания. Вот классический пример того, как ПОСТУПАТЬ НЕ НУЖНО, а именно, желая помочь ближнему, и в то же время воспринимая задачу, как шаблонную, рутинную и нудную, наспех, не проверив, выкладывать решение.
Теперь по сути. Вы правы, в первой поправке ВНУТРЕННИЙ цикл нужно обязательно взять в операторные скобки (begin, end) внешний - тоже можно, но не обязательно. А вот вторая ошибка, извините, Ваша - Вы зачем-то предпоследний END; переместили в другое место.

 

[Vladimir_S]

Исправил текст первой программы. Еще раз спасибо, Маша.

 

[ummasha]

Но Паскаль пишет, что после последнего END ожидалась точка с запятой, а не точка. Или я что-то путаю?

 

[Vladimir_S]

Но Паскаль пишет, что после последнего END ожидалась точка с запятой, а не точка. Или я что-то путаю?

Нет, положительно сегодня меня надо пристрелить. Из гуманности. Короче говоря, еще один END пропустил. Над 4-й снизу строкой. Исправил.

Да, и в начале второй программы тоже пропущенные begin end вставил.

 

[ummasha]

Vladimir_S, теперь программа работает

 

[Vladimir_S]

Vladimir_S, теперь программа работает

Уф!