Question

Определите, что будет напечатано в результате работы следующей программы: program p1; var i, n: integer; k: real; const dat: array[1..36] of real=(5, 5, 5, 5, 10, 5, 25, 10, 40, 30, 5, 40, 10, 6, 15, 7, 5, 10, 20, 5, 10, 15, 5, 35, 5, 2.5, 3, 2.5, 6, 50, 5, 3, 10, 5, 25, 15); begin k: =0; for i: =1 to 36 do if dat[i]> k then begin k: =dat[i]; n: =i; end; writeln(̍k=̍, k: 5: 2); readln; end.

Answer 1

K изначально равна нулю, цикл проверяет каждый элемент массива, если он больше К, то К присваивается этот элемент. То есть К - максимальный элемент массива. Переменная N нас не волнует, т.к. выводится на экран K.
Максимальный элемент в этом массиве равен 50, и ответ 50.