Информатика, опубликовано 2018-08-22 23:05:55 by Гость
Заполните массив 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.