Question

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

Answer 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.