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

Алгоритм решения задачи:
Создадим две процедуры заполнения одномерного массива целыми числами: одну с использованием функции 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.

Случайные файлы

Файл
readme.txt
anna.txt
kurs_mmc.txt
descriptjon.txt
referat.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.