Заполните массив 15 произвольными целыми числами,введя их с клавиатуры и найдите среди них среднее арифметическое.

Question

Заполните массив 15 произвольными целыми числами,введя их с клавиатуры и найдите среди них среднее арифметическое.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

Program z1; const n = 15; Var a: array [1..n] of integer; i:integer; s:real;Begin for i:=1 to n do read(a[i]); for i:=1 to n do write (a[i],' '); s:=0; for i:=1 to n do s:=s+a[i]; s:=s/n; writeln; writeln('Сумма элементов = ',s);End.