{* Задача 172 *}

Unit ZADACH172;
Interface
Implementation
Begin
 writeln('Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива A: bi = (a1+a2+...+ai) / i');
End.

Program zadach172;

Uses zadach172.pas; {* Эту строку можно удалить *}
Uses CRT; {* Вызов внешних функций *}
Const {* Постоянные значения *}
  N = 5;
Type {* Создание новых типов данных *}
  ArrayInt = Array [1..N] Of Integer;
  ArrayReal = Array [1..N] Of Real;
Var {* В работе нам потребуются переменные: *}
  X : ArrayInt;
  Y : ArrayReal;
  i : Integer;
  S : Integer;
Begin
  Clrscr; {* Очищаем экран *}
  Randomize;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
  Begin
    X[i] := - 1000 + Random(2000);
    Write(X[i], ' ');
  End;
  Writeln('');
  S := 0;
  For i := 1 To N Do {* Увеличиваем i от 1 до N с шагом 1 *}
  Begin
    S := S + X[i];
    Y[i] := S / i;
  End;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
    Write(Y[i] : 6 : 2, ' ');
  Readln; {* Ждем нажатия Enter *}
End.