Заполнить два массива (из 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);  Writelnend.Пример   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