Каждый солнечный день улитка сидящая на дереве поднимается на 2см а в каждый пасмурный день опускается на 1см . в начале ноября улитка находилась ы А см от земли на В дереве .имеется 30 элем.массив содержащим сведенья о том был ли соответствующий деньпасмурным или солнечным . написать программу определяющее место положения улитки к концу 30 дня наблюдения

Program Ulitka;
Var SunnyDay: Array [1..30] Of Boolean;
a, b, c, i: Integer;
Begin
WriteLn(a = );
ReadLn(a);
WriteLn(b = );
ReadLn(b);
b := b * 100;
Randomize;
For i := 1 To 30 Do
Begin      
If Random(2) = 1 Then
SunnyDay[i] := True
Else
SunnyDay[i] := False;
End;
For i := 1 To 30 Do
Begin  
If SunnyDay[i] = True Then
Begin    
a := a + 2;    
If a > b Then    
a := b;  
End  
Else  
Begin   
a := a - 1;    
If a < 0 Then    
a := 0;  
End;  
End;
WriteLn(Дни месяца были таковы:);
For i := 1 To 30 Do Begin
If SunnyDay[i] = True Then
WriteLn(i, . Солнечный)
Else
WriteLn(i, . Пасмурный)
End;
WriteLn(К концу 30 дня местоположение улитки равно , a, см над землей);
ReadLn;
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.