В многострочном текстовом поле содержится значения средней температуры воздуха каждого дня недели (Числа вводятся с клавиатуры). Определите среднюю температуру воздуха за всю неделю. Выясните, сколько раз в неделю температура была выше нуля.Программа на паскале.

Предыдущий
вопрос Следующий
вопрос

program AverageTemperature;
var
temperature: array [1..7] of Integer;
i, sum, count_above_zero: Integer;
average_temperature: Real;
begin
sum := 0;
count_above_zero := 0;
writeln('Введите значения средней температуры для каждого дня недели:');
for i := 1 to 7 do
begin
write('День ', i, ' : ');
readln(temperature[i]);
sum := sum + temperature[i];
if temperature[i] > 0 then
count_above_zero := count_above_zero + 1;
end;
average_temperature := sum / 7;
writeln('Средняя температура за неделю: ', average_temperature:0:2);
writeln('Температура была выше нуля ', count_above_zero, ' раз(а)');
end.

Программа просит пользователя ввести значения средней температуры для каждого дня недели, затем вычисляет среднюю температуру за всю неделю и определяет, сколько раз температура была выше нуля.