1. Знамениты оценки каждого из 20 воспитанников класса по физике. Подсчитать

1-ое :

var

i, num, nums2, nums3, nums4, nums5: Integer;

begin

for i := 1 to 20 do

begin

ReadLn(num);

if num = 2 then

nums2 := nums2 + 1

else if num = 3 then

nums3 := nums3 + 1

else if num = 4 then

nums4 := nums4 + 1

else if num = 5 then

nums5 := nums5 + 1 ;

end;

WriteLn('Количество двоек - ', nums2);

WriteLn('Количество троек - ', nums3);

WriteLn('Количество четвёрок - ', nums4);

WriteLn('Количество пятёрок - ', nums5);

end.

2-ое:

var

i, height, minHeight, maxHeight: Integer;

totalHeight: Real;

begin

for i := 1 to 20 do

begin

ReadLn(height);

if (i = 1) or (height lt; minHeight) then

minHeight := height ;

if (i = 1) or (height gt; maxHeight) then

maxHeight := height ;

totalHeight := totalHeight + height;

end;

WriteLn('Максимальный рост - ', maxHeight);

WriteLn('Малый рост - ', minHeight);

WriteLn('Средний рост - ', Round(totalHeight / 20.0))

end.