Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 58 стр.

                                                            совп.чисел"

Turbo Pascal
Program Equal;
  Uses Crt;
  Type Mas = Array [1..20] of Integer;
  Var A          : Mas;
       i, j, N : Integer;
       Flag      : Boolean;
{------------------------------------------}
Procedure InputOutput; {Описание процедуры ввода-вывода данных}
 Begin ClrScr;
   Write('N = '); ReadLn(N);
   For i := 1 to N do
      begin Write('A[' , i , '] = ') ; ReadLn(A[i]) end;
   WriteLn; WriteLn('Массив А');
   For i := 1 to N do Write(A[i] : 4);
   WriteLn; WriteLn
 End;
{------------------------------------------}
Procedure Search(Var A:Mas; Var Flag:Boolean); {Описание
процедуры}
 Begin                                            {поиска решения
  }
   i:=1; Flag:= FALSE;
   While (i<=N-1) and not Flag do      {цикл по первому числу из
пары}
     begin
       j:=i+1;
       While (j<=N) and not Flag do {цикл по второму числу из
пары}
            If A[i]=A[j] then Flag:=TRUE else j:=j+1;
       i:=i+1
     end;
 End;
{------------------------------------------}
BEGIN
  InputOutput;        {вызов процедуры ввода-вывода данных }
  Search(A, Flag); {вызов процедуры поиска решения задачи}
  WriteLn( 'О т в е т : ');
  If Flag then WriteLn('Есть совпадающие числа.' )
             else WriteLn('Нет совпадающих чисел.');
  ReadLn
END.


Пример 5.2. Дана целочисленная матрица A(N, N). Определить, имеются ли среди её
      элементов, лежащих ниже главной диагонали, отрицательные числа.

                                Система тестов

   Номер        Проверяемый              Данные                  Результат