Определите, что будет напечатано в результате работы следующей программы: 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. очень срочно

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