Упр.3.83 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)

Задача

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

Подробный ответ

Суммируем пройденные мили по трём десятидневкам и затем сравниваем полученные суммы.

Ход решения

Обозначим:

$$s_1$$ — путь за 1–10-й дни;
$$s_2$$ — путь за 11–20-й дни;
$$s_3$$ — путь за 21–30-й дни.

После ввода всех 30 значений находим максимальную сумму и номер соответствующей десятидневки.

program Z_83;
var
  a: array [1..30] of integer;
  i, k, s1, s2, s3, max: integer;
begin
  s1 := 0; s2 := 0; s3 := 0;
  for i := 1 to 30 do
  begin
    readln(a[i]);
    if i <= 10 then s1 := s1 + a[i]
    else if i <= 20 then s2 := s2 + a[i]
    else s3 := s3 + a[i];
  end;
  max := s1; k := 1;
  if max < s2 then begin max := s2; k := 2; end;
  if max < s3 then begin max := s3; k := 3; end;
  writeln(‘max=’, max, ‘ k=’, k);
end.