Даны 10 случ. Чисел. Выбрать из них наибольшее с помощью одномерного…

const N=10; var i,k: integer; A: array [1… N] of integer; Begin randomize; for i: =1 to N do A[i]: =random (maxint); k: =-maxint; for i: =1 to N do begin if A[i] > k then k: =A[i]; end; writeln ('Наибольшее значение: ', k); end.