Впроизвольно заданном одномерном массиве (случайные значения из отрезка -5 до 15) из 12 элементов, определить максимальный элемент и его номер.

Const
  n = 12;

var
  a: array[1..n] of integer;
  i, max: integer;

begin
  max := 1;
  for i := 1 to n do begin
    a[i] := random(20) - 5;
    write(a[i]:3);
    if a[i] > a[max] then
      max := i;
  end;
 
  writeln;
  writeln('a[', max, '] = ', a[max]);
end.

Uses crt;
const n=12;
var a:array[1..n] of integer;
i,k,max:integer;
begin
randomize;
max:=-5;
for i:=1 to n do
begin
a[i]:=random(20)-5;
writeln(a[i]);
if a[i]>max then
begin
k:=i;
max:=a[i];
end;
end;
writeln;
writeln(max);
writeln(k);
end.