• Даны три числа. Найти среди них минимальное положительное число.

Ответы 2

  • спасибо
    • Автор:

      darbyhgnd
    • 6 лет назад
    • 0
  • var a:array[1..10]of longint; n,m,k,i,l:longint;begin k:=maxlongint; for i:=1 to 3 do read(a[i]); for i:=1 to 3 do if (a[i]>0) and (a[i]<k) then k:=a[i];writeln(k);readln;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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