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