Известны сведения о температуре за 10 дней (от -20 до 20). найти: найти среднюю температуру; количество дней, когда были заморозки; самую высокую температуру. решить на паскале.

-20-20＝-40 градусов
-40-10＝-50 гралусов

Const n = 10;
var
temp: array [0..n-1] of shortint;
max, min, i: byte;
sum : integer;
begin
randomize;
writeln ('Температуры ', n, ' дней:');
for i:=0 to n-1 do
begin
temp[i]:=random (41)-20;
write (temp[i], '; ');
if temp[i]>temp[max] then max:=i;
if temp[i]<0 then inc (min);
inc (sum, temp[i]);
end;

writeln ();
writeln ('Средняя температура: ', sum/n);
writeln ('Макс. температура: ', temp[max]);
write ('Кол-во дней с отриц. температурой: ', min);
end.