Заполнение массива процедурой | Pascal
Заполнение и вывод массива на экран при помощи процедур.
Код программы:
var
a: integer;
mas: array[1..20] of integer;
procedure zap(z, x: integer);
var
c: integer;
begin
for c := z to x do
mas[c] := random(100);
end;
procedure wr;
var
v: integer;
begin
for v := 1 to 20 do
write(mas[v]:3);
end;
begin
zap(1, 20);
wr;
end.