Заполнить два массива (из 10 элементов каждый) случайными числами. Сформировать третий массив, каждый элемент которого равен полусумме соответствующих элементов исходных массивов.

Пример:

Исходные массивы:

0 4 - 3 2 - 7 0 5 - 6 3 1 5 2 0 - 4 3 8 - 3 8 - 9 5

Конечный массив:

2.5 3 - 1.5 - 1 - 2 4 1 1 - 3 3

В паскале

Const

n=10;

var

i:integer;

a, b:array[1 ... n] of integer;

c:array[1 ... n] of real;

begin

Randomize;

for i:=1 to n do begin

a[i]:=Random (20) ;

Write (a[i]:5) ;

b[i]:=Random (20) ;

c[i]: = (a[i]+b[i]) / 2

end;

Writeln;

for i:=1 to n do Write (b[i]:5) ;

Writeln;

for i:=1 to n do Write (c[i]:5:1) ;

Writeln

end.

Пример

12 15 9 18 13 10 6 15 4 11

3 16 3 0 17 0 19 12 0 5

7.5 15.5 6.0 9.0 15.0 5.0 12.5 13.5 2.0 8.0