Вмассиве c размером 9 заполненном с клавиатуры различными числами найти максимальный элемент и его адрес. ​

ответ:

program posled;

var a: array[1..100] of integer;

i, n: integer;

begin

write (‘сколько элементов? ’); readln (n);

for i=1 to n do

begin

a[i]: = random(58)-23;

writeln (a[i],’ ‘);

end;

end.