Посчитать среднее арифметическое всех элементов массива и вывести в ответ номер и элемент массива

@grisha919 · Регистрация: 26.01.2011

Студворк — интернет-сервис помощи студентам

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

@Puporev · 26.04.2011, 11:24

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,imn:byte;
    sr,mn:real;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
sr:=0;
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
  sr:=sr+a[i];
 end;
writeln;
sr:=sr/n;
writeln('Среднее арифметическое=',sr:0:2);
mn:=abs(a[1]-sr);
imn:=1;
for i:=2 to n do
if abs(a[i]-sr)<mn then
 begin
  mn:=abs(a[i]-sr);
  imn:=i;
 end;
write('Наиболее близок элемент a[',imn,']=',a[imn]);
end.

@grisha919 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 18
		1
	Посчитать среднее арифметическое всех элементов массива и вывести в ответ номер и элемент массива 26.04.2011, 10:16. Показов 1591. Ответов 1 Метки нет (Все метки) Вводится массив. Надо посчитать среднее арифметическое всех элементов массива и вывести в ответ номер и элемент массива, наиболее близкий к этому среднему арифметическому значению всех элементов массива. 0

Опции темы

Посчитать среднее арифметическое всех элементов массива и вывести в ответ номер и элемент массива

Решение