Известен рост каждого ученика двух классов. Определить средний рост учеников каждого класса. Численность обоих классов одинаковая

@OmgMorty · Регистрация: 03.02.2012

Студворк — интернет-сервис помощи студентам

Комментарий модератора

Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.

Комментарий модератора

Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.

@Ev[G]eN · 10.02.2012, 19:30

Pascal

const
 n = 5;
var
 Summa1, Summa2, Rost, i: integer;
begin
 Summa1:=0; Summa2:=0;
 writeln('Введите данные первого класса: ');
  for i:=1 to n do
   begin
    read(Rost);
    inc(Summa1, Rost);
   end;
 writeln('Средний рост первого класса: ', Summa1 / n);
 writeln('Введите данные второго класса: ');
  for i:=1 to n do
   begin
    read(Rost);
    inc(Summa2, Rost);
   end;
 writeln('Средний рост второго класса: ', Summa2 / n);
end.

	10.02.2012, 19:30

Опции темы

Известен рост каждого ученика двух классов. Определить средний рост учеников каждого класса. Численность обоих классов одинаковая

Решение