Информатика, опубликовано 2018-08-22 21:39:54 by Гость
В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.
Ответ оставил Гость
program rost;
var n,i,sred,sum:integer;
A:array [1..10000] of integer;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
for i:=1 to n do
sum:=sum+A[i];
sred:=sum div n;
writeln(sred);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на