Ответ:
var a,m,k,p:integer;
begin
read(a);
m:=a;
k:=1;
p:=1;
while a<>0 do
if a>m then
p:=k
end;
k:=k+1;
read (a)
writeln (p)
end.
Ищите индекс минимального элемента в массиве.
Вот ответ:
а) есть
б) является