• program mi;
    Var
    n, ch, i, max:integer;
    begin max:=1;
    write('Введите кол-во чисел в последовательности -> ');
    Readln(n);
    writeln('Введите последовательность: ');
    for i:=1 to n do
    begin
    write('-> ');
    readln(ch);
    if ch > max then max:=ch;
    end;
    writeln('Максимальное число: ', max);
    end.
    Нарисуйте блок

Ответы 2

  • Нашёл 2 ошибки. Можно снова отправить на исправление?
    • Автор:

      pansyr1wt
    • 5 лет назад
    • 0
  • Блок-схема в приложении.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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