Заполнение массива и его вывод на экран
Задача
В задачах по программированию очень часто встречается необходимость заполнить массив данными и вывести их потом на экран. Методов этого не так уж много и особым разнообразием они не отличаются. Поэтому хорошо бы их оформить в виде процедур и использовать по мере необходимости.
Решение
Создадим две процедуры заполнения одномерного массива целыми числами: одну с использованием функции 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); readln end.
Комментарии
А не могли бы такую же только для двумерного массива
Процедура сортировки массива
Массив заполняется вручную. После этого с помощью процедуры он сортируется в порядке возрастания.