Напишите программу, которая в последовательности чисел определяет минимальное число.
Answers & Comments
George2410
Uses crt; var a: array[1..10000] of Integer; n, i, min: Integer; Begin readln(n); for i := 1 to n do read(a[i]); min := a[1]; for i := 2 to n do if a[i] < min then min := a[i]; writeln(min); End.
Answers & Comments
var a: array[1..10000] of Integer;
n, i, min: Integer;
Begin
readln(n);
for i := 1 to n do read(a[i]);
min := a[1];
for i := 2 to n do
if a[i] < min then min := a[i];
writeln(min);
End.