Напишите программу, которая в последовательности чисел определяет минимальное число.
Напишите программу, которая в последовательности чисел определяет минимальное число.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы