3. Вычислить результат работы программы A) Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 7; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 2; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k] > 3 then begin m := m+1 end; writeln(m); End. Б) Var k, m, month: integer; Dat: array[1...12] of integer; Begin Dat[1] := 5; Dat[2] := 5; Dat[3] := 6; Dat[4] := 8; Dat[5] := 4;Dat[6] := 5; Dat[7] := 4; Dat[8] := 7;Dat[9] := 4; Dat[10] := 4;Dat[11] := 8;Dat[12] := 7; month: = 1; m := Dat[1]; for k: 2 to 12 do if Dat[k] <= m then begin m:= Dat[k]; month := k; end; write(month); End.

Ответ: A) 6, Б) 7

Решение:

А)

• Шаг 1: Инициализация m = 0
• Шаг 2: Цикл for k := 1 to 10 do
  • k = 1: Dat[1] = 2 > 3 (ложь)
  • k = 2: Dat[2] = 5 > 3 (истина), m = 0 + 1 = 1
  • k = 3: Dat[3] = 7 > 3 (истина), m = 1 + 1 = 2
  • k = 4: Dat[4] = 5 > 3 (истина), m = 2 + 1 = 3
  • k = 5: Dat[5] = 4 > 3 (истина), m = 3 + 1 = 4
  • k = 6: Dat[6] = 2 > 3 (ложь)
  • k = 7: Dat[7] = 0 > 3 (ложь)
  • k = 8: Dat[8] = 2 > 3 (ложь)
  • k = 9: Dat[9] = 4 > 3 (истина), m = 4 + 1 = 5
  • k = 10: Dat[10] = 5 > 3 (истина), m = 5 + 1 = 6
• Шаг 3: Вывод: writeln(m) = 6

Б)

• Шаг 1: Инициализация month = 1, m = Dat[1] = 5
• Шаг 2: Цикл for k := 2 to 12 do
  • k = 2: Dat[2] = 5 <= m (истина), m = 5, month = 2
  • k = 3: Dat[3] = 6 <= m (ложь)
  • k = 4: Dat[4] = 8 <= m (ложь)
  • k = 5: Dat[5] = 4 <= m (истина), m = 4, month = 5
  • k = 6: Dat[6] = 5 <= m (ложь)
  • k = 7: Dat[7] = 4 <= m (истина), m = 4, month = 7
  • k = 8: Dat[8] = 7 <= m (ложь)
  • k = 9: Dat[9] = 4 <= m (истина), m = 4, month = 9
  • k = 10: Dat[10] = 4 <= m (истина), m = 4, month = 10
  • k = 11: Dat[11] = 8 <= m (ложь)
  • k = 12: Dat[12] = 7 <= m (ложь)
• Шаг 3: Вывод: write(month) = 7

Ответ: A) 6, Б) 7