Задан двумерный массив найти если таковые есть отрицательные элементы первой строки ответ...

Question

Задан двумерный массив найти если таковые есть отрицательные элементы первой строки ответ дать в виде да или нет


в паскаль

Answer 1

Хотелось бы конечно определиться с границами массива, но раз они не заданы, то допустим, что массив имеет размерность 10х10. Также нам неизвестен тип данных (целочисленный или вещественный), так что допустим, что массив заполняется целочисленными элементами. Тогда, программа примет следующий вид:

 VAR

A: ARRAY [1..10, 1..10] OF INTEGER;

 i, j: BYTE; {Переменные-счётчики циклов}

 flag: BOOLEAN: {переменная флаг логического типа, сигнализирующая о наличии или отсутствии отриц.элементов в первой строке}

BEGIN

flag := FALSE; {Изначально допустим, что отриц.элементов нет}

 FOR i := 1 TO 10 DO

 FOR j := 1 TO 10 DO

 READLN (A[i, j]); {Заполняем массив элементами}

FOR i := 1 TO 10 DO

IF A[1, i] < 0 THEN flag := TRUE; {Проверяем первую строку на наличие отриц. элементов}.

IF flag THEN WRITELN ('Да') ELSE WRITELN ('Нет');

END.

Если в процессе понимания решения возникнут какие-либо сложности, то обращайтесь.

Comments

а можно обойтись без flag: BOOLEAN:

---

спасибо

---

Можно. Есть ещё множество путей. Если Вас смущает flag, а именно логический тип, который присвоен этой переменной, то можете присвоить этой переменной целочисленный тип данных (INTEGER) и задать его изначально, допустим нулю. Т.е.: flag := 0; затем, когда проверяем первую строку, то делаем по-другому: IF A[1, i] < 0 THEN flag := 1; а далее делаем следующее: IF flag = 0 THEN WRITELN ('Нет') ELSE WRITELN ('Да');

---

Пожалуйста