Решить, используя массив+for+randomДано:- массив Days из 30 частей - солнечные/облачная

1) Паскаль? 2) Вышина может быть отрицательной?))

То есть, если улитка уже на земле, она в пасмурные деньки так там и останется, либо в землю зароется?)) И если она на верхушке - будет ли сползать или подниматься?

да, Паскаль

эту задачу писал учитель, и конкретно такое условие он и написал) извините, что так все запутанно

Что ж, значит решать мне

Во всех смыслах))

Const
N = 30;
Var
Days:array[1..N] of boolean;
B,A,i:integer;
Begin
B:=random(15,100);
A:=random(60,100);
WriteLn('Вышина дерева: ',B/10,' м');
WriteLn('Высота подъёма улитки: ',A,' см');
Write('Погода: ');
For i:= 1 to N do
    Begin
    if random(2) = 1 then Days[i]:=true
    else Days[i]:=false;
    if Days[i] then Write('солнечно ')
    else Write('пасмурно ')
    End;
WriteLn;

For i:= 1 to N do
    Begin
    if Days[i] then
       Begin
       if A+3lt;=B then A:=A+3
       else A:=B;
       End
    else
       Begin
       if A-2gt;=0 then A:=A-2
       else A:=0;
       End
    End;
Write('Вышина поъёма улитки: ',A/10,' м')
End.