var c: array[1..10] of real;
var a: array[1..10] of real;
var b: array[1..10] of real;
var i: integer;
begin
randomize;
for i in [1..10] do
begin
a[i] := random(101);
a[i] := random(101);
end;
for i in [1..10] do
begin
c[i] := a[i] + b[i];
end;
for i in[1..10] do
begin
writeln(c[i]);
end;
end.
Не понятно какой рандом нужен был, то есть min/max, поэтому я взял просто рандомное число от 0 до 100