Сформировать из чисел массив и найти среднее арифметическое значение всех его составляющих - Turbo Pascal

Формулировка задачи:

в главной программе вводятся 5 чисел , функция формирует из них массив и находит ср. арифметическое значение всех его составляющих ! помогите плз

Код к задаче: «Сформировать из чисел массив и найти среднее арифметическое значение всех его составляющих - Turbo Pascal»

textual
Var
  m : Array[1..5] of Integer;
  i : Byte;
Function SrAr : Real;
Begin
  SrAr:=(m[1]+m[2]+m[3]+m[4]+m[5])/5;
End;
Begin
  For i:=1 to 5 do Readln(m[i]);
  Writeln('Среднее арифметическое: ',SrAr:8:4);
End.

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы