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

Формулировка задачи:

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

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

Листинг программы

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.

Объяснение кода листинга программы

В начале программы объявляются константа n (численность классов) и переменные Summa1, Summa2, Rost и i типа integer (целые числа).
Переменные Summa1 и Summa2 инициализируются нулем.
Выводится сообщение с просьбой ввести данные первого класса.
В цикле от 1 до n происходит чтение роста каждого ученика первого класса и прибавление его к Summa1.
Вычисляется и выводится средний рост первого класса (переменная Summa1 делится на n).
Выводится сообщение с просьбой ввести данные второго класса.
В цикле от 1 до n происходит чтение роста каждого ученика второго класса и прибавление его к Summa2.
Вычисляется и выводится средний рост второго класса (переменная Summa2 делится на n).