Первое :
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.
Начнем с параметров страницы. Когда Вы открывайте программу, панель настроек изначально стоит на вкладке «Главная». Перейдите на вкладку «Разметка страницы» и на панели настроек выберите ПОЛЯ, там перейдите на настраиваемые поля. После этого откроется дополнительное окно, где можно настроить рабочую область листа.
Проставьте для начала поля отступа, выберите ориентацию, а если ваш документ на нескольких страницах и вы собирайтесь распечатывать на обе стороны листа, то Вам следует еще поменять функцию Обычный на Зеркальный и нажать на ОК. Это нужно, для того что бы на другой стороне были такие же поля (красные линии, как нас учили в школе).
Затем настраиваем параметры шрифта.
Так-же нужно настроить масштаб, интервал и смещение всего текста или же только нужных Вам слов