Question

Помогите!
Надо написать программу паскаль,которая
а)Просит ввести количество людей,затем просит ввести их массу и выводит на экран их общюю массу
б)В этой же программе надо добавить их среднюю массу.
в) В этой же программе надо чтоб программа выводила на экран информацию,могут ли люди ехать в лифте чья грузоподъёмность 300 кг
31 балл даю.

Answer 1

Ответ:

var n, k, i:integer;

m:real;

begin

   readln(n);

   

   for i:=1 to n do

       begin

           readln(k);

           m := m + k;

       end;

   

   writeln('Общая масса: ', m);

   writeln('Средняя масса: ', m/n);

   

   if (m < 300) then

       begin

           writeln('Люди могут ехать!');

       end

   else

       writeln('Ехать нельзя!');

end.

Объяснение:

б)В этой же программе надо добавить их среднюю массу.

Не совсем понял куда добавить, поэтому вывел.