Задание:
Каждый солнечный день улитка сидящая на дереве поднимается на 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 DoBegin If Random (2)=1 Then SunnyDay[i]: =True Else SunnyDay[i]: =False; End; For i: =1 To 30 Do Begin If SunnyDay[i]=True ThenBegin 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, '. Солнечный') ElseWriteLn (i, '. Пасмурный') End; WriteLn ('К концу 30 дня местоположение улитки равно ', a, ' см над землей'); ReadLn; End.
Знаете другой ответ?