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