Паскаль!!
Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера.
Пример:
Массив:
1 2 3 4 5
Минимальный элемент: A[1]=1
Максимальный элемент: A[5]=5

Спасибо огромное!!

Constn=10;var i,amin,amax,imin,imax:integer;a:array[1..n] of integer;beginfor i:=1 to n doa[i]:=random(30);writeln('Полученный массив:');for i:=1 to n dowrite(a[i]:4);writeln;imax:=1;imin:=1;amax:=a[1];amin:=a[1];for i:=1 to n doif 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.