Question

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

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