Дан массив из N различных элементов. Определить количество расположенных до минимального...

Question

Дан массив из N различных элементов. Определить количество расположенных до минимального элемента массива

Comments

яке максимальне n&

---

*?

---

какое максимальное n?

---

не известно

---

ограничения нету?? тогда решить невозможно, так как не знаешь на сколько массив делать,сейчас напишу при максимальном 10000 и оно вводится с клавиатуры

Answer 1

Var a:array[1..10000]of longint;
     n,i,j,min:integer;
begin
  writeln('vvedite n');
  readln(n);
  writeln('vvedit chisla');
  for i:=1 to n do read(a[i]);
  min:=a[1];
  for i:=1 to n do
    begin 
      if min>a[i] then begin min:=a[i];j:=i;end;
    end;
  write(i-1);
end.
если n будет больше то в описании увеличь размер массива там где подчеркнуто