Даны n чисел.Вывести на экран наименьшее число.

Var n,min,i:integer;a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=2 to n do if a[i]writeln(min);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.