Хэйллис Program Ok;
const n=11;
var  A:array[-3..7] of integer; 
 i,k,sum,min:integer;
  t :real;
begin
Randomize;
sum:=0;
k:=0;
min:=100;
for i:=-3 to 7 do
begin
A[i]:=random(40);
write(A[i], ' ');
end;
writeln;
 for i:=-3 to 7 do  begin if (A[i] > 0 ) then
writeln(i, ' ' );
if (A[i] = 0) then
k:=k+1;
if A[i]<min then
min:=A[i];
sum:=sum+A[i];
end;
t:=sum/n;
writeln('Минимальная темп ', min);
writeln('Средняя темп ', t);
write('Кол-во 0 темп ', k);
end.