Паскаль!

Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера.

Пример:

Массив:

1 2 3 4 5

Минимальный элемент: A[1]=1

Максимальный элемент: A[5]=5

Const

n=10;

var i, amin, amax, imin, imax:integer;

a:array[1 ... n] of integer;

begin

for i:=1 to n do

a[i]:=random (30);

writeln ('Полученный массив:');

for i:=1 to n do

write (a[i]:4);

writeln;

imax:=1;

imin:=1;

amax:=a[1];

amin:=a[1];

for i:=1 to n do

if a[i]>amax then

begin amax:=a[i]; imax:=i end else

begin amin:=a[i]; imin:=i; end;

writeln ('A[', imin,']=', a[imin]);

writeln ('A[', imax,']=', a[imax]);

end.