дан одномерный массив.найти самый минимальный элемент массива

Вопрос от посетителя:

дан одномерный массив.найти самый минимальный элемент массива

Илюха отвечает:

Если массив состоит из 10 элементов то код программы:

 

const

 n=10; 

var

  a:array[1..n] of integer;

  i,min:integer; 

begin

for i:=1 to n do read(a[i]);     {вводишь заданный массив}

min:=32767;

for i:=1 to n do

 If a[i]

write(min);

end;