Определите что в перечисленных величинах является константой * Количество минут в часе Количество пассажиров - id1164937520230121 от Mino6 21.01.2023 02:24

Question

Информатика: Определите что в перечисленных величинах является константой * Количество минут в часе Количество пассажиров в вагоне метро Географические координаты острова Врангеля Количество писем, пришедших на электронную почту Температура воздуха на архипелаге Шпицберген Длина железнодорожного пути от Москвы до Санкт-Петербурга Высота Останкинской телебашни ​

Mino6 · Accepted Answer

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
n,s,t,i:integer;
begin
Write('Укажите количество данных: ');
Read(n);
Writeln('Теперь вводите данные');
s:=0;
for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4

MOGZ ответил