Помогите пожалуйста. Вот задача: Дан одномерный массив, состоящий из 10 элементов. Определить минимальный элемент этогомассива.
var i,min:integer; a:array [1..10] of integer; Begin for i:= 1 to 10 do Begin read(a); if (i=1) or (min>a)then min:=a; end; writeln(min); End.