Дан массив из 5 элементов. Найти средне арифметическое всех элементов массива.

Program ArrayAverage;

var a: Array [1 ... 5] of Integer;

i: Integer;

b: Real;

Begin

b : = 0;

WriteLn ('Введите 5 целых чисел через пробел и нажмите Enter') ;

For i : = 0 To 4 Do

Begin

Read (a[i]) ;

End;

For i : = 0 To 4 Do

Begin

b : = b + a[i];

End;

b : = b / 5;

Write ('Среднее арифметичиское: ') ;

WriteLn (b:10:2) ;

End.