В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.
В ЭВМ вводятся по очереди данные о росте 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.
ГостьProgram saidim;
uses crt;
const n=20;
var
rost,sum,i:integer;
begin
writeln('***********************');
writeln('** Ростомер **');
writeln('***********************');
writeln();
sum:=0;
for i:=1 to n do
begin
write('Введите рoст ',i,'-го ученика ');
readln(rost);
sum:=sum+rost;
end;
writeln('*** alphaues is thinking... ***');
writeln();
writeln('Средний рост учащихся класса равен ',sum/n);
end.
Не нашли ответ?
Похожие вопросы