Заполните массив 15 произвольными целыми числами,введя их с клавиатуры и найдите среди них среднее арифметическое.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
