Задание 7 Параграф 1.4 ГДЗ Босова 9 класс 2023 (Информатика)

Задача

а) обработку последовательности;
var
t, s: integer;
begin
s := 0;
writeln(‘Введите температуру’);
write(‘Понедельник > > ‘);
readln(t);
s := s + t;
write(‘Вторник > > ‘);
readln(t);
s := s + t;
write(‘Среда > > ‘);
readln(t);
s := s + t;
write(‘Четверг > > ‘);
readln(t);
s := s + t;
write(‘Пятница > > ‘);
readln(t);
s := s + t;
write(‘Суббота > > ‘);
readln(t);
s := s + t;
write(‘Воскресенье > > ‘);
readln(t);
s := s + t;
Writeln(‘Средняя температура за неделю > > ‘,s/7:6:2)
end.
б) обработку массива.
const
a: array [1..7]of string = (‘Понедельник’, ‘Вторник’, ‘Среда’, ‘Четверг’, ‘Пятница’, ‘Суббота’, ‘Воскресенье’);
var
t, s, i: integer;
begin
s := 0;
writeln(‘Введите температуру’);
for i := 1 to 7 do
begin
write(a[i], ‘ > > ‘);
readln(t);
s := s + t
end;
Writeln(‘Средняя температура за неделю > > ‘, s / 7:6:2)
end.
Исходные данные вводятся с клавиатуры.

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

Среднюю температуру за неделю находим как сумму температур за все 7 дней, делённую на 7. Можно организовать ввод и обработку двумя способами: без массива и с массивом.

а) Обработка последовательности

var
  t, s: integer;
begin
  s := 0;
  writeln(‘Введите температуру’);
  write(‘Понедельник >> ‘);
  readln(t);
  s := s + t;
  write(‘Вторник >> ‘);
  readln(t);
  s := s + t;
  write(‘Среда >> ‘);
  readln(t);
  s := s + t;
  write(‘Четверг >> ‘);
  readln(t);
  s := s + t;
  write(‘Пятница >> ‘);
  readln(t);
  s := s + t;
  write(‘Суббота >> ‘);
  readln(t);
  s := s + t;
  write(‘Воскресенье >> ‘);
  readln(t);
  s := s + t;
  writeln(‘Средняя температура за неделю >> ‘, s / 7:6:2);
end.

б) Обработка массива

const
  a: array [1..7] of string = (‘Понедельник’, ‘Вторник’, ‘Среда’, ‘Четверг’, ‘Пятница’, ‘Суббота’, ‘Воскресенье’);
var
  t, s, i: integer;
begin
  s := 0;
  writeln(‘Введите температуру’);
  for i := 1 to 7 do
  begin
    write(a[i], ‘ >> ‘);
    readln(t);
    s := s + t;
  end;
  writeln(‘Средняя температура за неделю >> ‘, s / 7:6:2);
end.