Надо написать программу паскаль,которая
а)Просит ввести количество людей,затем просит ввести их массу и выводит на экран их общюю массу
б)В этой же программе надо добавить их среднюю массу.
в) В этой же программе надо чтоб программа выводила на экран информацию,могут ли люди ехать в лифте чья грузоподъёмность 300 кг
даю.
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.
Объяснение:
б)В этой же программе надо добавить их среднюю массу.
Не совсем понял куда добавить, поэтому вывел.