var 
a:array[1..1000] of integer;
i,n,s,min,max:integer;
begin
s:=0;
writeln ('Vvedite kol-vo dney'); readln (n);
for i:=1 to n do 
begin
a[i]:=random (100)-50; 
end;
writeln ('Temperatura');
for i:=1 to n do 
writeln ('Δενό ',i,' temperatura=',a[i]);
writeln;
min:=a[1];
max:=a[1];
for i:=1 to n do begin
if (a[i]>max) then max:=a[i];
if (a[i]<min) then min:=a[i];
end;
for i:=1 to n do 
s:=s+a[i];
writeln ('Srednjaja temperatura ',s/n);
writeln ('Minimum ',min);
writeln ('Maksimum ',max);
end.