массив и Паскаль

[C@t]

дан массив из К элементов,нужно найти min и выписать номер этого min.

пишу код

var m:array[1..100] of real;
i:integer;
k: integer; {колличество элементов в массиве}
min:real;
begin
write ('k-?');
for i:=1 to k do begin
writeln ('m[',i,']= ', m[i]);
readln (k);
end;
min:=m[1];
for i:=2 to k do
if m[i] < k then min:=m[i];
writeln ('min= ',min);
writeln ('# min = ',i);
readln;
end;

Минимальный элемент находит,а вот номер нет: показывает колличество введенных элементов. В ЧЕМ ОШИБКА???????

[Fantazerishka]

потому что ты выводишь i-ый, а он в конце примет значения k т.е. кол-ва элементов... Добавь переменную, например imin:=1 (раз у тебя по умолчанию минимальный это первый элемент) и каждый раз когда находит минимальный придавал значение imin:=i

[ai\ekcah^p]

uses crt;
var m:array[1..100] of real;
i:integer;
k,num: integer;
min:real;
begin
clrscr;
write ('k-?  ');readln (k);
for i:=1 to k do begin
write ('m[',i,']= ');
readln(m[i]);
end;
min:=m[1];
for i:=1 to k do
if m[i] <= min then
begin
 min:=m[i];
 num:=i;
end;
writeln ('min= ',min:4:2);
writeln ('# min = ',num);
readln;
end.