ОЧЕНЬ СРОЧНО!!! в массиве хранятся данные о ежедневной температуре в течение августа (случайные числа от 15 до 25). Составьте программу для нахождения среднемесячной температуры. Pascal ABC
Ответы
Ответ дал:
1
Ответ:
program Temperature;
const
Days = 31;
var
Data: array[1..Days] of Integer;
Day, Sum: Integer;
Average: Real;
begin
Randomize;
for Day := 1 to Days do
begin
Data[Day] := Random(11) + 15;
Inc(Sum, Data[Day]);
end;
Average := Sum / Days;
writeln('Среднемесячная температура: ', Average:0:2);
end.
Вас заинтересует
1 месяц назад
1 месяц назад
2 месяца назад
2 месяца назад
1 год назад
1 год назад
7 лет назад
7 лет назад