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

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.

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.