Элемент массива, наиболее отличающийся от первого. - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д