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