Помогите пожалуйста доделать задачу. PASCAL program PS; var n, i: integer; b: real; a:...

Question

Помогите пожалуйста доделать задачу. PASCAL program PS; var n, i: integer; b: real; a: array[1..3] of real; otoplenie: boolean; 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] := a[2]; a[2] := a[3]; a[3] := random(50) - 20 + random( ); end; end. В паскале когда запускаю, ничего не выводит, заранее спасибо

---

Answer 1

Тык команды вывода же нет

Comments

напиши пожалуйста)

---

Так Write (<переменная>); обычный

---

хм, просто в конце написать перед ендами - write(a);?

---

Можно между end'ами впихнутьWrite(a(или то, что нужно вывести));

---

а как сделать так чтобы целые числа выводились?

---

Без дробной части? добавить к переменной x;y, где x - кол-во цифл в целой части, и y - в дробной