Задача на использование процедур при работе с массивом. Pascal
Разбор задачи на программирование. Код программы + видео-урок.
Задача:
Массив состоит из N элементов. N-число, введённое пользователем с клавиатуры.
Размер массива находится в диапазоне от 10 до 50.
Массив заполняется случайными числами от 0 до X. X-число, введённое
пользователем с клавиатуры. X находится в диапазоне от 2 до 100.
Затем при помощи процедуры массив выводится на экран.
Код программы:
var
n,x:integer;
mas:array [1..50]of integer;
procedure fill(z,c:integer);
var
a:integer;
begin
for a:=1 to z do
mas[a]:=random(c);
end;
procedure wr(z:integer);
var
a:integer;
begin
for a:=1 to z do
write(mas[a]:3);
end;
begin
write('Введите размер массива: ');
readln(n);
write('Введите предел случайного числа: ');
readln(x);
fill(n,x);
wr(n);
end.
