НАЙТИ НОМЕР ЭЛЕМЕНТА ПАСКАЛЬ

const
N = 10;

var
A: array[1..N] of integer;
i: integer;
i_min: integer;

begin
randomize;
for i := 1 to N do
begin
A[i] := 1 + random(10);
write(A[i], ' ');
end;

i_min := 1;
for i := 1 to N do
if A[i] < A[i_min] then
i_min := i;
writeln(#10#13,'Index minimal''nogo elementa:', i_min);

write('Nazhmite klavishu Enter dlya prodolzheniya...');
readln;
end.