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

Question

Информатика

Иринарх

27 апреля, 16:13

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

+4

Ответы (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.