Question

ОЧЕНЬ СРОЧНО!!! в массиве хранятся данные о ежедневной температуре в течение августа (случайные числа от 15 до 25). Составьте программу для нахождения среднемесячной температуры. Pascal ABC​

Answer 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.