Заполнить массив 20 случайными числами (использовать генератор случайных чисел).

Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве.

const

m = 20;

var

arr: array[1 ... m] of integer;

i, j, k, r: integer;

begin

for i : = 1 to m do begin

arr[i] : = random (256) ;

end;

for i : = 1 to m-1 do

for j : = 1 to m-i do

if arr[j] > arr[j+1] then begin

k : = arr[j];

arr[j] : = arr[j+1];

arr[j+1] : = k

end;

write (arr[20]) ;

readln

end.