Информатика

Ядвира

5 ноября, 10:08

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 () ;

write (a) ;

end;

end.

Проблема вывода массива и результата