Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Вычислить: номер элемента массива, наименее отличающегося от среднего арифметического всех его элементов.Написать программу в паскале.Помогите,пожалуйста.

Ответ оставил Гость

const  n = 5;   var   a: array[1..n] of integer;  i, k: integer;  s: real; begin  s := 0;  for i := 1 to n do  begin    readln(a[i]);    s := s + a[i];  end;  s := s / n;  writeln(Среднее значение = , s:0:3);  k := 1;  for i := 2 to n do    if abs(a[k] - s) > abs(a[i] - s) then k := i;   writeln(Индекс элемента: , k, Значение = , a[k]);end.