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

Question

Заполнить два массива (из 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
В паскале

Answer 1

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