Одномерные массивы - Паскаль, Turbo Pascal, PascalABC.NET

Asya_S · 21.05.2013, 13:46

Дано натуральное число n. Найдите среднее арифметическое элементов массива Аi (i=1, 2,...n).

Mad_Cat · 21.05.2013, 14:25

Код:

Avg:=0;
For i:=1 to n do
Avg:=avg+a[i];
writeln(avg/n);

21.05.2013, 13:46	#1
Asya_S Регистрация: 21.05.2013 Сообщений: 3	Одномерные массивы Дано натуральное число n. Найдите среднее арифметическое элементов массива Аi (i=1, 2,...n).

21.05.2013, 14:25	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `Avg:=0; For i:=1 to n do Avg:=avg+a[i]; writeln(avg/n);` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Одномерные массивы.	Izekil	Помощь студентам	0	17.12.2012 16:01
Одномерные массивы, двумерные массивы, строки	Sand093	C++ Builder	11	20.05.2012 21:48
Си Одномерные массивы	mad_dm	Помощь студентам	0	24.11.2011 16:30
одномерные массивы	Positive-z	Общие вопросы C/C++	2	13.06.2010 09:24
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент	LyaLya	Помощь студентам	15	20.12.2009 14:12