Question

Что будет выведено на экран после выполнения программы. Реши табличным способом. Var k, m: integer; Dat: array[1…10] of integer; Begin Dat [1] := 16; Dat [2] := 20; Dat [3] := 20; Dat [4] := 41; Dat I51 := 14; Dat [6] := 21; Dat [7] := 28; Dat [8] := 12; Dat [9] := 15; Dat [10] := 35; m := 0; for k := 1 to 10 do if Dat [k] >m then begin m := Dat [k] end; writeln (m) ; End.

Answer 1

Ответ:

В результате работы программы будет выведено '41', т.к. цикл производится при условии, что ячейка массива Dat больше предыдущей. Поэтому, добравшись до 5 элемента со значением 14, итерация прекратится, оставив переменной m значение 41.  

Answer 2

Давайте разберем эту программу шаг за шагом:

1. Создается две переменные k и m, обе типа integer.
2. Создается массив Dat с 10 элементами (индексы от 1 до 10) и инициализируются значениями.
3. Переменной m присваивается значение 0.
4. Запускается цикл for, который перебирает значения переменной k от 1 до 10 включительно.
5. Внутри цикла проверяется условие if Dat[k] > m, и если оно истинно (значение элемента Dat[k] больше текущего значения m), то текущему значению m присваивается значение элемента Dat[k].
6. После завершения цикла выводится значение m с помощью writeln.

Теперь давайте рассмотрим значения массива Dat:

cssCopy code
Dat[1] = 16
Dat[2] = 20
Dat[3] = 20
Dat[4] = 41
Dat[5] = 14
Dat[6] = 21
Dat[7] = 28
Dat[8] = 12
Dat[9] = 15
Dat[10] = 35

Теперь программа будет находить максимальное значение в этом массиве и выводить его. Максимальное значение в данном случае - 41.

Поэтому после выполнения программы на экран будет выведено:

Copy code
41