Объясните пожалуйста КАК РЕШАТЬ. Что будет записано в результате работы данной программы? var Dat: array[1..7] of integer; k, day: integer; begin Dat[1] := 9; Dat[2] := 11; Dat[3] := 10; Dat[4] := 13; Dat[5] := 8; Dat[6] := 5; Dat[7] := 11; day := 0; for k := 1 to 7 do begin if Dat[k] <=10 then day := day+1; end; writeln(day); end.
if Dat[k] <=10 then day := day+1; - это значит что dat от k меньше или равен нулю то перемаенная day увеличивается на 1. Проверяем: Dat[1]= 9 9<=10 ?? Да, значит day увеличили на 1 и day стало равно 1. Dat[2]=11 11<=10 ?? нет, day=1. Dat[3]=10 10<=10?? да, day=2 Dat[4]=13 13<=10? нет day=2; Dat[5]=8 8<=10? да day =3; Dat[6]=5 5<=10? да day=4 Dat[7]=11 11<=10? нет day =4 Ответ:4
