Элемент массива, наиболее отличающийся от первого. - 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.