1. известны оценки каждого из 20 учеников класса по . подсчитать количество 5,4,3 и 2. 2. известен рост 20 учеников школы (в см). подготовить лист для определения самого высокого,самого низкого и определить средний рост ученика. работа в excel при формул

Первое :

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.

Второе:

var

i, height, minHeight, maxHeight: Integer;

totalHeight: Real;

begin

for i := 1 to 20 do

begin

ReadLn(height);

if (i = 1) or (height < minHeight) then

minHeight := height ;

if (i = 1) or (height > maxHeight) then

maxHeight := height ;

totalHeight := totalHeight + height;

end;

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

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

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

end.