• Очень нужно!!! помогите сделать программу нахождения минимального значения из чисел введенных с клавиатуры.признак конца ввода 0(паскаль)

Ответы 1

  • var min,n:longint;Beginreadln(n);min:=n;while(n<>0) doBeginif n<min then min:=n;readln(N);end;writeln(min);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years