Question

Дан массив из n элементов. Найти наименьший элемент массива.
Написать в паскале абс

Answer 1

Program FindMin;
const n = 5;
var
min,i:integer;
a:array[1..n] of integer;
begin
     for i:=1 to n do   
         readln(a[i]);
min:=a[1];
for i:=2 to n do
    if a[i]<min then 
        min:=a[i];
Writeln('Min ',min);
end.