От острова Буяна до царства славного Салтана месяц (30 дней) пути. Капитан корабля записывает в вахтенный журнал количество миль,
Вопрос посетителя
От острова Буяна до царства славного Салтана месяц (30 дней) пути. Капитан корабля записывает в вахтенный журнал количество миль, пройденных за день. Составьте блок-схему алгоритма для определения, в какую из трех десятидневок пройден больший путь. Напишите соответствующую программу на языке Паскаль.
Ответ эксперта
Условные обозначения:
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-ю десятидневку.
— Во второй части мы сравниваем три пройденные десятидневки и выводим на экран какая десятидневка прошла самый больший путь, а также выводим количество пройденных миль за эту десятидневку.
