Заполнение массива и его вывод на экран

В задачах по программированию очень часто встречается необходимость заполнить массив данными и вывести их потом на экран. Методов этого не так уж много и особым разнообразием они не отличаются. Поэтому хорошо бы их оформить в виде процедур и использовать по мере необходимости.

Создадим две процедуры заполнения одномерного массива целыми числами: одну с использованием функции random и одну, где пользователь самостоятельно задает значения. Также создадим процедуру вывода массива на экран. Затем вызовем в основной ветке программы эти процедуры, передав им в качестве аргументов переменные, связанные с массивами.

Программа на языке Паскаль:

const
    n = 10;
 
type
    miniarr = array[1..n] of integer;
 
var
    a, b: miniarr;
 
procedure arr_rand (k:integer; var arr: miniarr);
    var i: byte;
    begin
        writeln ('Заполнение массива случайными числами.');
        randomize;
        for i := 1 to k do
            arr[i] := random (100);
    end;
 
procedure arr_user (k:integer; var arr: miniarr);
    var i: byte;
    begin
        write ('Введите  ', k, ' чисел через пробел: ');
        for i := 1 to k do
            read (arr[i]);
    end;
 
procedure arr_out (k:integer; var arr: miniarr);
    var i: byte;
    begin
        write ('Вывод массива: ');
        for i := 1 to k do
            write (arr[i]:4);
        writeln;
    end;
 
begin
 
    arr_rand (n, a);
    arr_out (n, a);
    writeln;
    arr_user (n, b);
    arr_out (n, b);

end.