• Используя процедуры, введите массив размером N с клавиатуры, а затем выведите элементы с A по B

    Примеры

    входные данные/выходные данные

    5

    1 2 3 4 5/ 2 3 4

    2 4

Ответы 1

  • type arr = array of integer;

    var c:arr;

    procedure m_in(var m:arr) ;

    var i,n:integer;

    begin

    read (n);

    m := new integer[n+1];

    for i:= 1 to n do read (m[i])

    end;

    procedure m_out(var m:arr) ;

    var i,a,b:integer;

    begin

    readln (a,b);

    for i:= a to b do write(m[i],' ');

    writeln;

    end;

    begin

    m_in(c);

    m_out(c)

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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