От острова Буяна до царства славного Салтана месяц пути



Задание 83. От острова Буяна до царства славного Салтана месяц пути. Капитан корабля записывает в вахтенный журнал количество миль, пройденных за день. Составить блок - схему алгоритма для определения, в какую из трех десятидневок пройден больший путь. Напишите соответствующую программу на языке Паскаль.
Наш пример решения задачи на языке Паскаль:(Нужно вводить самому каждый день сколько прошел капитан миль за каждый день)

Условные обозначения:
Day[1..30] - массив, в котором указывается количество миль, пройденных за один из 30-ти дней.
Ten[1..3] - массив, в котором будет храниться пройденный путь за десятидневкую
program z83;
var Day: array[1..30] of integer;
Ten: array[1..3] of integer;
i, a: integer;
BEGIN

for i:=1 to 30 do begin
write('Введите пройденный путь за ',i, ' день: ');
readln(Day[i]);
if (i<=10) then Ten[1]:=Ten[1] + Day[i];
if (i>10) and (i<=20) then Ten[2]:=Ten[2] + Day[i];
if (i>20) and (i<=30) then Ten[3]:=Ten[3] + Day[i]
end;

if (Ten[1]>Ten[2]) and (Ten[1]>Ten[3]) then
writeln('В первую десятидневку пройден больший путь, где пройдено ',Ten[1],' миль.');
if (Ten[2]>Ten[1]) and (Ten[2]>Ten[3]) then
writeln('Во вторую десятидневку пройден больший путь, где пройдено ',Ten[2],' миль.');
if (Ten[3]>Ten[1]) and (Ten[3]>Ten[2]) then
writeln('В третью десятидневку пройден больший путь, где пройдено ',Ten[3],' миль.');

END.
- В первой части кода в которой находится ниже мы вводим количество пройденных миль за каждый день и складываем пройденный путь за 1, 2 и 3-ю десятидневку.
- Во второй части мы сравниваем три пройденные десятидневки и выводим на экран какая десятидневка прошла самый больший путь, а также выводим количество пройденных миль за эту десятидневку.