Помогите пожалуйста)

Question

Помогите пожалуйста)

---

Answer 1

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:=A[i];
sum:=sum+A[i];
end;
t:=sum/n;
writeln('Минимальная темп ', min);
writeln('Средняя темп ', t);
write('Кол-во 0 темп ', k);
end.

Comments

Если не сработает, то сорри

---

Там

---

writeln('Средняя темп ', t)

---

И константа выше переменных, то есть var
const=10;
A:array[1..n] of integer
a,i,k,sum,t:integer;

---

Да блин, const n=10;
var
A:array[1..n] of integer
a,i,k,sum,t:integer;

---

Вот теперь работает