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

Question

Информатика

Оляня

11 марта, 11:34

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

+5

Ответы (1)

Знаете ответ на вопрос?

Готя · Answer 1

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.