Найти наибольшее (наименьшее) значение A(I)-B(I) для матриц A(N) и B(N) - Pascal

Формулировка задачи:

Найти наибольшее (наименьшее) значение A(I)-B(I) для массивов A(N) и B(N).

Решение задачи: «Найти наибольшее (наименьшее) значение A(I)-B(I) для матриц A(N) и B(N)»

Листинг программы

  mn:=a[1]-b[1]; mx:=mn;
  for i:=2 to n do begin
    t:=a[i]-b[i];
    if mn>t then mn:=t;
    if mx<t then mx:=t;
  end;
  WriteLn('min: ',mn,' max: ',mx);

Объяснение кода листинга программы

mn - переменная, в которую записывается минимальное значение разности элементов массивов A и B
mx - переменная, в которую записывается максимальное значение разности элементов массивов A и B
i - переменная-счетчик для итерации по элементам массивов A и B с 2 до n
t - переменная для хранения текущего значения разности a[i] и b[i]
Присваивание mn и mx значения разности первых элементов массивов a и b
Итерация по элементам массивов a и b, начиная с 2-го элемента, и сравнение каждой разности с mn и mx
Вывод минимального и максимального значения разности элементов массивов A и B.