7класс
Номер 3.83, ГДЗ по информатике за 9 класс к сборнику задач и упражнений Босовой
Номер 3.83. От острова Буяна до царства славного Салтана месяц (30 дней) пути. Капитан корабля записывает в вахтенный журнал количество миль, пройденных за день. Составить блок - схему алгоритма для определения, в какую из трех десятидневок пройден больший путь. Напишите соответствующую программу на языке Паскаль.
a[1..30] - массив количества миль, пройденных за каждый день
i - номер текущего дня
s1, s2, s3 - суммы путей, пройденных за каждые из трех десятидневок.
max - максимальное из s1, s2, s3
k - номер десятидневки.
program Z83;
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.
