• РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧКУ ПО ИКТ В PASCAL ABC NET
    через integer

    question img

Ответы 2

  • var a,n,i,t,g: integer;begint:=0;g:=0;readln(N);for i:=1 to N do beginreadln(a);if a>t thent:=a;if a =0 theng:=1;end;writeln(t);if g>0 thenwriteln('YES')elsewriteln('NO');end.
    • Автор:

      tonibawy
    • 5 лет назад
    • 0
  • Накалякал немножко =)var a,n,i,t,g: integer;begint:=0;g:=0;readln(N);for i:=1 to N do beginreadln(a);if a>t thent:=a;if a =0 theng:=1;end;writeln(t);if g>0 thenwriteln('YES')elsewriteln('NO');end.
    • Автор:

      gamsovbf
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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