Program Temperature;var T: array[1..12] of real;I: integer; Tsred: real;beginfor I:=1 to 12 dobeginwrite('T[', I:2,']= ');read (T[I])end;Tsred:=0;for I:=1 to 12 doTsred:=Tsred+T[I];Tsred:=Tsred/12;writeln( 'Среднегодовая темпер...
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.
Где здесь ошибка??? Пишет ожидался оператор.
Гость
Ответ(ы) на вопрос:
ГостьВ конце программы пропущен end;
И еще не описан массив Dt
Не нашли ответ?
Похожие вопросы