Найти наибольшее (наименьшее) значение 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) - Pascal»

textual
  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);

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 4.429 из 5


СОХРАНИТЬ ССЫЛКУ