задача в Турбо Паскале на двумерный массив

[sasha55]

Определить в двумерном массиве:
1)Есть ли в данном массиве отрицательный элемент;
2)Есть ли 2 одинаковых элемента;
3)Ест ли данное число А(введенное с клавиатуры) среди элементоа двумерного массива!!!

Буду очень благодарна!!!

[sasha55]

Пожалуйста помогите!!!!Очень срочно надо!!!

[Alex11223]

Все находится примерно по такому алгоритму.

for i:=1 to n do
   for j:=1 to m do
	if (arr[i][j] < 0) then делать что-то

[sasha55]

Я по нимаю,что задача решается по такому алгоритму,но не знаю как все это оформить!

[just4smth]

1)
Как то так:

Program nahozhdenie_otricat_elementa;
Uses crt;
Const n=2;
Var mass:array[1..n, 1..n] of integer;
    i,j:integer;
    e:boolean;

Begin
        clrscr;
        Writeln('Введите элементы массива');
        for i:=1 to n do
           for j:=1 to n do
              Readln(mass[i,j]);
        
        e:=false;
        for i:=1 to n do
           for j:=1 to n do
              if (mass[i,j]<0) then
                 e:=true;

        if e then
           Writeln('Отрицательный элемент есть')
        else
           Writeln('Отрицательного элемента нет');

        Readln;
End.

Остальные по такому же принципу.
P.S. Сам учусь, могут быть ошибки\недочёты

[sasha55]

Спасибо))А вот это что означает:e:boolean?Мы просто так никогда не писали

[Alex11223]

Переменные типа boolean могут принимать 2 значения: истина или ложь (true или false, 1 или 0 соответственно). Именно поэтому можно писать if e then вместо if e=true then

Кстати, перед началом циклов наверно нужно проинициализировать е (e:=false), хотя мб умный компилятор сделал это сам.
upd: а, сори, не заметил, что есть.

[just4smth]

Сообщение от Alex11223

Кстати, перед началом циклов наверно нужно проинициализировать е (e:=false), хотя мб умный компилятор сделал это сам.

Значит у меня умный компилятор, всё работает без e:=false
UPD: Закомментировал, проверил, в двух случаях работает одинаково, но лучше, наверное раскомментировать.

[sasha55]

А еще вопрос: в этом месте Const n=2; Const m нужно вводить???

[just4smth]

Сообщение от sasha55

А еще вопрос: в этом месте Const n=2; Const m нужно вводить???

Я привёл пример c квадратной матрицей, иначе m нужна, так же нужно в теле n на m, где нужно изменить.