Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

Program Temperature;

5-9 класс

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.
Где здесь ошибка??? Пишет ожидался оператор.

Fish32 05 дек. 2013 г., 1:34:47 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Dias0201887
05 дек. 2013 г., 2:26:34 (10 лет назад)

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

Ответить

Другие вопросы из категории

Помогите составить в правильном порядке)

1)C:A+B
2)begin
3)read (A,B);
4)end
5)var
6)A,B,C:integer;
7)program sum
8)write (С)
9)write (введите 2 числа) ;

Читайте также

Program tutor;

var
x: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Writeln(x);
end.

Что в этой программе не так? Я хочу извлечь корень из х, а программа пишет "ОШИБОЧНЫЙ ИДЕНТИФИКАТОР".

Program tutor;
var
X, Z: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Z:=sqrt(X);
Writeln(x,z);
end.

И через "sqrt"- оператор не хочет выдавать корень из Х. Что я не так делаю? подскажите.

Прошу вас, помогите! Решается оценка!!! Найдите ошибки в программе 1)Program z1; var a:integer; begin a:=10; while

a<5 do

writeln(a);

a:=a+1;

End.

2)Program z2;

var a,s:integer;

begin

a:=1; s:=0;

while a<10 do begin

s:=s+a/2;

end;

writeln(s);

end.

Помогите пожалуйстаа!! Определите результат работы программы, написанной на языке Паскаль. 1) program a5 var i, m:

integer;

begin

m:= 0

for i: = 1 to 6 do

m: = m-6

writeln (m)

end.

2) program a6

var i, m: integer;

begin

m:= 0;

for i: = 3 to 7 do

m: = m-6+i;

writeln (m)

end.



Вы находитесь на странице вопроса "Program Temperature;", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.