Дан целочисленный массив из 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.