Question

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

Answer 1

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.