Элемент массива, наиболее отличающийся от первого. - Turbo Pascal

Узнай цену своей работы

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

Составьте программу заполнения с клавиатуры и вывода на экран массива из 5 элементов. Найдите элемент наиболее отличающийся от первого

Решение задачи: «Элемент массива, наиболее отличающийся от первого.»

textual
Листинг программы
const n=5;
var
  a: array [1..n] of Integer;
  i, j: Integer;
begin
  Write('Элементы массива (',n,'): ');
  for i:=1 to n do Read(a[i]); ReadLn;
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  j:=2; for i:=3 to n do if Abs(a[1]-a[j])<Abs(a[1]-a[i]) then j:=i;
  WriteLn('Наиболее отличается от 1-го ',j,'-й: ',a[j]);
end.

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы