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])<min then beginmin:=A[i];k:=i;end;writeln();writeln('min=',min, ' N ', k);
end.