Дан целочисленный массив из 31 элемента, элементы массива могут принимать значения от - 20 до 20. Написать программу, которая выводит среднюю температуру среди дней, когда была оттепель.

const

n = 31;

var

a: array[1 ... n] of integer;

s, k, i: longint;

f: real;

begin

cls;

k : = 0;

randomize;

for i : = 1 to n do

begin

a[i] : = random (40) - 20;

writeln (a[i]);

end;

for i : = 1 to n do

if a[i] > = 0 then begin

s : = s + a[i];

k : = k + 1;

end;

f : = s / k;

writeln ('Средняя температура среди дней, когда была оттепель, равна ', f, '.');

end.