{* Составление массива из двух других *}

Unit MAS_4;
Interface
Implementation
Begin
 writeln('Составление третьего массива из двух других по формуле c[i]=(a[i]+b[i])/2');
End.

Program mas_4;

Uses mas_4.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Константы *}
  n = 5;
Var {* В работе нам потребуются переменные: *}
  a : Array[1..n] Of integer;
  b : Array[1..n] Of integer;
  c : Array[1..n] Of real;
  i : integer;
Begin
  clrscr; {* Очищаем экран *}
  randomize;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    a[i] := random(9);
    write(a[i]);
  End;
  writeln; {* Пропускаем одну строку *}
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    b[i] := random(9);
    write(b[i]);
  End;
  writeln; {* Вывод пустой строки *}
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    c[i] := (a[i] + b[i]) / 2;
    write(c[i] : 1 : 0);
  End;
  readkey; {* Ждем нажатия пользователя *}
End.