(Ребят надо составить программу и блок схему помогите пожалуйста)Ввести с клавиатуры...

Question

(Ребят надо составить программу и блок схему
помогите пожалуйста)


Ввести с клавиатуры
массив B4[N].
Найти наименьший элемент массива и его индекс (номер). N вводится с клавиатуры.


0< N <20.</span>

Answer 1

Программа:
var b4:array [1..20] of longint;
     i,min,n:longint;
begin
  read (n);
  min:=100000;
  n:=1;
  for i:=1 to n do read (b4[i]);
  for i:=1 to n do if b4[i]                                                         n:=i;
                                                end;
  write (min,' ',n);
end.
 Блок схему не прикрепить, извини.