Описать функцию average(ar, n), вычисляющую среднее арифметическое первых n элементов массива

@Borges · Регистрация: 13.09.2015

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

Дано описание:
Type artype=array[1..100] of real;
Описать функцию average(ar,n), вычисляющую среднее арифметическое первых n элементов в массиве ar, имеющeм тип artype

@Puporev · 15.09.2015, 12:52

Странно что нет параметра размер массива, будем считать что он=100.

Pascal

uses crt;
type artype=array[1..100] of real;
function average(ar:artype;n:integer):real;
var i:integer;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+ar[i];
average:=s/n;
end;
var n,i:integer;
    a:artype;
    s:real;
begin
clrscr;
randomize;
writeln('Массив');
for i:=1 to 100 do
 begin
  a[i]:=5*random;
  write(a[i]:5:2);
 end;
writeln;
repeat
write('Введите число элементов для подсчета от 1 до 100 n=');
readln(n);
until n in [1..100];
s:=average(a,n);
write('Среднее арифметическое первых ',n,' элементов=',s:0:2);
readln
end.

@Borges · 15.09.2015, 20:29 **[ТС]**

Сообщение от Puporev

a[i]:=5*random;

Сообщение от Puporev

21

что это значит?

@Puporev · 15.09.2015, 20:32

значения элементов вещественные числа в диапазоне [0..5)

@Borges 0 / 0 / 0 Регистрация: 13.09.2015 Сообщений: 10
		1
	Описать функцию average(ar, n), вычисляющую среднее арифметическое первых n элементов массива 15.09.2015, 12:20. Показов 5052. Ответов 3 Метки нет (Все метки) Дано описание: Type artype=array[1..100] of real; Описать функцию average(ar,n), вычисляющую среднее арифметическое первых n элементов в массиве ar, имеющeм тип artype 0

@Borges 0 / 0 / 0 Регистрация: 13.09.2015 Сообщений: 10
	15.09.2015, 20:29 [ТС]	3
	Сообщение от Puporev a[i]:=5random; Сообщение от Puporev* 21 что это значит? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.09.2015, 20:32	4
	значения элементов вещественные числа в диапазоне [0..5) 1

Описать функцию average(ar, n), вычисляющую среднее арифметическое первых n элементов массива

Решение