Составьте программу вычисления среднего арифметического элементов массива

@Archi86 · Регистрация: 14.12.2011

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

@Kruks · 14.12.2011, 21:16

Pascal

var i,n:integer;s:real;
begin
{Здесь нужно заполнить массив и количество элементов в нем}
for i:=1 to n do
 s:=s+a[i];
sa:=s/n;
writeln(sa);
end.

n - это число элементов в массиве.
sa - ответ.

@Kruks · 18.12.2011, 20:40

Если я правильно понял задание:

Pascal

type TVect=array [1..n] of real;
var n,i:integer;s:real;
a:TVect;
begin
randomize;
write('Vvedite dlinu '); readln(n);
for i:=1 to n do
a[i]:=random*20-10;                //формируется случайный массив чисел
for i:=1 to n do
s:=s+abs(a[i]);                       //считаем сумму всех элементов
s:=s/n;                                  //делим сумму на их количество
writeln(s);
end.

@Archi86 0 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 6
		1
	Составьте программу вычисления среднего арифметического элементов массива 14.12.2011, 21:07. Показов 21333. Ответов 2 Метки нет (Все метки) Составьте программу вычисления среднего арифметического элементов массива 0

	18.12.2011, 20:40

Опции темы

Составьте программу вычисления среднего арифметического элементов массива

Решение