Question

Помогите с информатикой!!! а) В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 8; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 1; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m := 10; for k := 1 to 10 do if Dat[k] ≤ m then m := Dat[k]; writeln(m); End. б) В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 16; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 18; Dat[10] := 15; m := 0; for k := 1 to 10 do if Dat[k] ≤ 15 then m := m + 1; writeln(m); End.

Answer 1

1)1 (т.к программа выводит наименьшую температуру)

2)7 (т.к программа требует выведения количества дней, в которых температура была меньше или равна 15 градусов)

Answer 2

Давайте разберем оба варианта программы:

а) В данной программе происходит итерация по массиву Dat, и на каждой итерации проверяется, если текущее значение Dat[k] меньше или равно m, то значение m заменяется на Dat[k]. После окончания цикла выводится значение m. Изначально m равно 10, и каждый раз, когда в массиве Dat находится значение меньше текущего m, оно перезаписывается в m. В итоге программа выведет минимальное значение из массива Dat.

Исходные данные:

cssCopy code
Dat[1] = 2
Dat[2] = 5
Dat[3] = 8
Dat[4] = 5
Dat[5] = 4
Dat[6] = 2
Dat[7] = 1
Dat[8] = 3
Dat[9] = 4
Dat[10] = 5

Работа программы:

makefileCopy code
m = 10
k = 1: Dat[1] (2) ≤ m (10) -> m = 2
k = 2: Dat[2] (5) ≤ m (2) -> m = 5
k = 3: Dat[3] (8) ≤ m (5) -> m = 8
k = 4: Dat[4] (5) ≤ m (8) -> m = 5
k = 5: Dat[5] (4) ≤ m (5) -> m = 4
k = 6: Dat[6] (2) ≤ m (4) -> m = 2
k = 7: Dat[7] (1) ≤ m (2) -> m = 1
k = 8: Dat[8] (3) ≤ m (1) -> m = 1
k = 9: Dat[9] (4) ≤ m (1) -> m = 1
k = 10: Dat[10] (5) ≤ m (1) -> m = 1

Вывод: 1

б) В этой программе также происходит итерация по массиву Dat, но в каждой итерации проверяется, если текущее значение Dat[k] меньше или равно 15, то переменная m увеличивается на 1. После окончания цикла выводится значение m. Изначально m равно 0. Программа считает, сколько раз значение температуры за день было меньше или равно 15.

Исходные данные:

cssCopy code
Dat[1] = 12
Dat[2] = 15
Dat[3] = 17
Dat[4] = 16
Dat[5] = 14
Dat[6] = 12
Dat[7] = 10
Dat[8] = 13
Dat[9] = 18
Dat[10] = 15

Работа программы:

makefileCopy code
m = 0
k = 1: Dat[1] (12) ≤ 15 -> m = 1
k = 2: Dat[2] (15) ≤ 15 -> m = 2
k = 3: Dat[3] (17) > 15 -> m = 2
k = 4: Dat[4] (16) > 15 -> m = 2
k = 5: Dat[5] (14) ≤ 15 -> m = 3
k = 6: Dat[6] (12) ≤ 15 -> m = 4
k = 7: Dat[7] (10) ≤ 15 -> m = 5
k = 8: Dat[8] (13) ≤ 15 -> m = 6
k = 9: Dat[9] (18) > 15 -> m = 6
k = 10: Dat[10] (15) ≤ 15 -> m = 7

Вывод: 7

Таким образом, результаты работы программ: а) Вывод: 1 б) Вывод: 7