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

  WriteLn; WriteLn(' Пapаметры шин ');
  WriteLn('N шины   Диаметр   Вес');
  For i := 1 to Number do
    WriteLn(i:4, Diameter[i]:10:1, Weight[i]:10:1);
  WriteLn
End; { of InputOutput }
{----------------------------------------------------------}
Procedure YesNo(Var First, Second : Integer; Var Flag :
Boolean);
 Begin {описание процедуры поиска решения задачи}
  i:=1; Flag := FALSE;
  While (i<=Number-1) and not Flag do {цикл по первой шине из
пары}
    begin
      j := i+1;
      While (j<=Number) and not Flag do {цикл по второй шине из
пары}

        If (Abs(Diameter[i]-Diameter[j]) <= D)
            and (Abs(Weight[i]-Weight[j]) <= W)
          then begin Flag:=TRUE; First:=i; Second:=j end
          else j := j+1;
      i:=i+1
    end;
End; {of YesNo }
{----------------------------------------------------------}
BEGIN
  InputOutput; {Вызов процедуры ввода-вывода исходных данных}
  YesNo(First, Second, Flag);{Вызов процедуры поиска решения
задачи}

  WriteLn('О т в е т :');
  If Flag then WriteLn('По параметрам подходят друг другу ',
                       First, '-ая и ', Second, '-ая шины.')
          else WriteLn('Шин, подходящих друг другу, в партии
нет.');
  ReadLn
END.



                         Задачи для самостоятельного решения
5.1. В заданной целочисленной матрице A(N, M) выведите на печать индексы первого
положительного элемента, кратного заданному числу K. Если таких элементов в матрице
нет, то выведите соответствующий текст. Элементы матриц просматривайте слева
направо и сверху вниз.
5.2. В заданной целочисленной матрице A(N, M) замените первый отрицательный элемент
максимальным элементом матрицы. Если отрицательных элементов нет, то выведите
соответствующий текст. Элементы матриц просматривайте слева направо и сверху вниз.
5.3. Из заданной матрицы A(N, N) удалите строку, в которой находится первый
отрицательный элемент. Элементы матриц просматривайте слева направо и сверху вниз.