В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

2

Ответы и объяснения

2013-05-24T15:27:21+00:00

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.

2013-05-24T18:17:11+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.