Developing.ru

Дан целочисленный массив из 30 элементов / Pascal ABC
Дан целочисленный массив из 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.

Пройти по циклу, просуммировать все элементы, разделить на их количество, получить среднее арифметическое.
Запомнить номер текущего оптимума, равный 1. Пройти по всем элементам цикла, если модуль разности между очередным элементом и средним арифметическим меньше модуля разности между текущим оптимумом и средним арифметическим - присвоить номеру текущего оптимума номер текущего шага цикла.

Developing.ru

Дан целочисленный массив из 30 элементов / Pascal ABC

Дан целочисленный массив из 30 элементов / Pascal ABC

Re: Дан целочисленный массив из 30 элементов / Pascal ABC