Найти min элемент С [1..5]

Question

Найти min элемент С [1..5]

Answer 1

Program Znanija;
var
i, min:integer;
c:array[1..5] of integer;
begin

for i:=1 to 5 do 
read(c[i]);

min := c[1];

for i:=1 to 5 do 
if c[i] < min then   
min := c[i];

writeln(min);

end.