Рассмотрим вариант решения задания из учебника Босова 9 класс, Просвещение: 83. 0т острова Буяна до царства славного Салтана месяц (30 дней) пути. Капитан корабля записывает в вахтенный журнал количество миль, пройденных за день. Составьте блок-схему алгоритма для определения, в какую из трех десятидневок пройден больший путь. Напишите соответствующую программу на языке Паскаль.Решение:Задачу можно решить с формированием масса и последующей его обработкой, или без массива.В нижеприведенном решении массив не используется.Условные обозначения:i – текущий день;p1 – путь, пройденный за текущий день;pd1 – путь, пройденный за 1-ю десятидневку;pd2 – путь, пройденный за 2-ю десятидневку;pd3 – путь, пройденный за 3-ю десятидневку;max – максимальный путь, пройденный за десятидневку.n – номер десятидневки.program Z_83;varp1, max, n: integer;i, pd1, pd2, pd3: integer;beginpd1 := 0; pd2 := 0; pd3 := 0;for i := 1 to 30 dobeginwrite('Введи путь, пройденный за ',i,' день > ');readln(p1);if i < 11 then pd1 := pd1 + p1;if (i > 10) and (i < 21) then pd2 := pd2 + p1;if i > 20 then pd3 := pd3 + p1end;max := pd1; n := 1;if pd2 > max then begin max := pd2; n := 2 end;if pd3 > max then begin max := pd3; n := 3 end;writeln('Больший путь пройдет в ', n, ' десятидневку ');end.
