В одномерном массиве, состоящем из n вещественных элементов, вычислить:

1) номер минимального элемента массива

program zadacha;

var min, n: real;

a: array[ 1 ... 10 ] of real;

i: integer;

begin

writeln ('Введите элементы массива') ;

for i:=1 to 10 do

begin

write ('a[', i,']=') ;

readln (a[i]) ;

end;

n:=1;

min:=a[i];

for i:=2 to 10 do

if min>a[i] then

begin

min:=a[i];

n:=i;

end;

writeln ('Номер минимального элемента массива ', n) ;

end.