вывести одномерный массив из n целых чисел. Найти мин. и мах.

[Асичка]

вывести одномерный массив из n целых чисел. Найти мин. и мах.

[Вадим Мошев]

Сколько вы готовы платить за решение?

[Mad_Cat]

im1:=1;
im2:=1;
for i:=1 to n do
begin
if a[i]>a[im1] then im1:=i;
if a[i]<a[im2] then im2:=i;
write(a[i]);
end;

[Асичка]

Благодарю