Перенос значений переменных одной процедуры в другую

@DJohn26 · Регистрация: 31.01.2019

Author24 — интернет-сервис помощи студентам

Условия задачи предельно просты: есть некий массив а, в котором n элементов и над которым проводится m операций. При вводе числа '1' p-тый элемент массива заменяется числом v, при вводе числа '2' p-тый элемент массива выводится в файл. Проблема в том, что код основной программы задан в условии и менять его запрещено.Редактировать разрешается только три подпрограммы:

upd - замена элемента массива.
ask - вывод элемента в файл.
init - процедура в которую записывается число элементов массива и сам массив.

Сам исходный код с тремя пустыми процедурами:

Pascal

procedure upd(p, v: longint);
begin
    
end;
 
function ask(p: longint): longint;
begin
    
end;
 
procedure init(n: longint; g: array of longint);
begin
    
end;
 
 
begin
    
    assign(input,'questions.in');
    reset(input);
    assign(output,'questions.out');
    rewrite(output);
    
    read(n,m);
    
    setlength(a, n);
    
    for i := 0 to n - 1 do
    begin
        read(a[i]);
    end;
    
    init(n, a);
    
    for i := 1 to m do
    begin
        read(t, p);
        if t = 1 then
        begin
            read(v);
            upd(p, v);
        end else
        begin
            writeln(ask(p));
        end;
    end;
    
    close(input);
    close(output);
end.

Сам массив среди вводимых переменных подпрограмм не используется, откуда следует, что его значения нужно вводить в подпрограммы с помощью процедуры init. Остается вопрос: как это сделать?

Буду крайне признателен за любую оказанную помощь.

	31.01.2019, 23:01