Объясните пожалуйста КАК РЕШАТЬ. Что будет записано в результате работы данной…

Question

74

Объясните пожалуйста КАК РЕШАТЬ. Что будет записано в результате работы данной программы? varDat: array[1… 7] of integer; k, day: integer; beginDat[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 beginif Dat[k] <= 10 thenday: =day+1; end; writeln (day); end.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

arso · Accepted Answer

61

arso

29 марта 2023

if Dat[k] <= 10 thenday: =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=2Dat[4]=13 13 <= 10? Нет day=2; Dat[5]=8 8 <= 10? Да day=3; Dat[6]=5 5 <= 10? Да day=4Dat[7]=11 11 <= 10? Нет day=4 Ответ: 4

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: