Помогите срочно!!! найдите минимальное из n чисел на паскале
Помогите срочно!!! найдите минимальное из n чисел на паскале
Гость
Ответ(ы) на вопрос:
Гостьvar
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
Не нашли ответ?
Похожие вопросы