Program PS;var n, i: integer; b: real; a: array[1..3] of real;begin read(n); for i := 1...

Question

Program PS;var n, i: integer; b: real; a: array[1..3] of real;begin read(n); for i := 1 to 3 do a[i] := random(50) - 20 + random( ); for i := 1 to n do begin if (a[1] > 15) and (a[2] > 15) and (a[3] > 15) and (otoplenie = true) then otoplenie := false; if(a[1] < 10) and (a[2] < 10) and (a[3] < 10) and (otoplenie = false) then otoplenie := true; a[1] := t[2]; a[2] := t[3]; a[3] := random(50) - 20 + random( ); end;end.Помогите исправить программу, выдает ошибку - Program1.pas(14) : Неизвестное имя 'otoplenie'. Pascal

Answer 1

Ты не инициализировал переменную otoplenie в блоке var т.е у тебя в блоке var нет переменной otoplenie соответственно программа не знает эту переменную и не может выполнить какие-либо действия с ней. Просто добавь строчку otoplenie: boolean; в блок var и всё.

Вот так :

var

n,i: integer;

otoplenie: boolean;

b:real;

a: array[1..3] of real;

Comments

спасибо, а у меня там еще t переменная в конце, как ее обозначить?

---

а не нене