Question

Помогите пожалуйста. Вот задача: Дан одномерный массив, состоящий из 10 элементов. Определить минимальный элемент этого массива.

Answer 1

var i,min:integer;
a:array [1..10] of integer;
Begin
    for i:= 1 to 10 do Begin
        read(a[i]);
        if (i=1) or (min>a[i])then
            min:=a[i];
    end;
    writeln(min);
End.