(надо составить программу и блок схему ) ввести с клавиатуры массив b4[n]. найти наименьший элемент массива и его индекс (номер). n вводится с клавиатуры. 0< n < 20.

Программа:
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]<min then begin min:=b4[i];
                                                         n:=i;
                                                end;
  write (min,' ',n);
end.
 Блок схему не прикрепить, извини.