Найти максимальный элемент в массиве А10…

var a: array [1… 10] of integer; i, max: integer; begin for i: =1 to 10 do a[i]: =trunc (random (500); max: =1; for i: =2 to 10 do if a[i] > a[max] then max: =i; writeln ('Максимальный элемент a[', max, ']=', a[max]); end.