Program Temperature;var T: array[1..12] of real;I: integer; Tsred: real;beginfor I:=1 to...

Question

Program Temperature;
var T: array[1..12] of real;
I: integer; Tsred: real;
begin
for I:=1 to 12 do
begin
write('T[', I:2,']= ');
read (T[I])
end;
Tsred:=0;
for I:=1 to 12 do
Tsred:=Tsred+T[I];
Tsred:=Tsred/12;
writeln( 'Среднегодовая температура = ', Tsred:6:2, ' градусов');
for I:=l to 12 do
begin
Dt[I]:= T[I] - Tsred;
writeln('Dt[',I:2,']=', Dt[I]:6:2)
end.
Где здесь ошибка??? Пишет ожидался оператор.

Answer 1

В конце программы пропущен end;
И еще не описан массив Dt

Comments

Пожалуйста, напишите как правильно.

---

1) Dt :array [1..12] of real;

---

2) перед end. добавьте end;

---

Спасибо огромное, но оно всё равно выдает ошибку.

---

какую?

---

Dt : array [1..12] of real; ожидался оператор.

---

http://i057.radikal.ru/1405/00/7ce7e48faa82.png

---

А это что можно уточнить?

---

Ваша программа, правильно написанная. Мне сюда в комментарий ее не вставить.

---

Спасибо Вам большое, но я не могу её открыть почему-то.