Каждый солнечный день улитка сидящая ** дереве поднимается вверх ** 2 см а в пасмурный...

Question

Каждый солнечный день улитка сидящая на дереве поднимается вверх на 2 см а в пасмурный день опускается на 10 см. в начале недели улитка находилась на а см от земли и на в метровом дереве. Имеются 30 массив, содержащий сведения о том был ли соответствующий день пасмурным. Определить место положения улитки к концу 30 дня. паскаль

Answer 1

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

Comments

Program Ulitka;Var SunnyDay: Array [1..30] Of Boolean;a, b, c, i: Integer;BeginWriteLn('a = ');ReadLn(a);WriteLn('b = ');ReadLn(b);b := b * 100;Randomize;For i := 1 To 30 Do Begin If Random(2) = 1 ThenSunnyDay[i] := TrueElse SunnyDay[i] := False;End;For i := 1 To 30 DoBegin If SunnyDay[i] = True ThenBegin a := a + 2; If a > b Then a := b; End Else Begin a := a - 10; If a < 0 Then a := 0; End; End;WriteLn('Дни месяца были таковы:');For i :