Программа: Средняя масса легких и тяжелых

Задача: Определить среднюю массу легких и тяжелых людей по отдельности, при условии, что количество человек не ограничено. Тяжелые весят более 100кг., легкие - менее 100кг.

PROGRAM massa;
	var i,x :integer;
	var m,srt,a1,a2,srl :real;
BEGIN
	WriteLn ('Количество человек:');
	ReadLn (x);
	a1:=0;
	a2:=0;
	srt:=0;
	srl:=0;
	for i:=1 to x do
	  begin
   		WriteLn ('Введите массу ', i, ' -го человека');
	    Read (m);
	    if m>100
        then
		  begin
		    srt:=m+srt;
		    a1:=a1+1;
		  end
        else
		  begin
		    srl:=m+srl;
		    a2:=a2+1;
		  end;
      end;
	srt:=srt / a1;
	srl:=srl / a2;
	WriteLn ('Средняя тяжелых:' ,srt);
	WriteLn ('Средняя легких:' ,srl);
END.

Просмотрело: 2209

Возможно, Вы искали: