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

Question

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

Answer 1

Если массив состоит из 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;