В массиве чисел А1,А2.....Аn найти минимальное по абсолютной величине число и его номер....

Question

В массиве чисел А1,А2.....Аn найти минимальное по абсолютной величине число и его номер. Как записать в Паскале?

Answer 1

Program zadacha;
varA: array[1..10000] of integer;i,n,min,k: integer;
beginmin:=0;writeln('vvedite n');readln(n);for i:=1 to n do beginA[i]:=random(10000)-5000;write(A[i]:6);end;
min:=abs(A[1]);k:=1;for i:=1 to n doif abs(A[i])end.

---