Дан целочисленный массив из 30 элементов.Элементы могут принимать любые целые значения Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит номер элемента массива , наименее отличающегося от среднего арифметического всех его элементов .
Код: Выделить всё
const N=30
var A:array[1..N] of integer;
i,k:integer;
s,min:real;
begin
for i:=1 to N do readln(a[i]);
...
end.