Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
x,y,z:array[1..n]of integer;
a,b,c,d:integer;
begin
{создаем массив Х}
writeln('Massiv X:');
randomize;
for a:=1 to n do
begin
x[a]:=random(100);{новый элемент массива Х}
write(x[a]:8);{выводим его}
end;
writeln;
{создаем массив Y}
writeln('Massiv Y:');
for a:=1 to n do
begin
y[a]:=random(100);{новый элемент массива Y}
write(y[a]:8);{выводим его}
z[a]:=x[a]+y[a];{суммируем с массивом Х, получаем Z}
end;
writeln;
{выводим массив Z}
writeln('Massiv Z:');
for a:=1 to n do
write(z[a]:8);{выводим элемент массива}
writeln;
end.[/code]
Удачи!