Задача

Составить программу для вычисления среднего арифметического числа одномерного массива.


Решение

Для решения данной задачи, первоначально необходимо сложить все элементы массива и разделить получившуюся сумму на количество элементво (в данном примере константа n).
Вычисление среднего арифметического числа 01 Uses Crt;
02 Const n=10;
03 Var
04 a:Array[1..n] of Integer;
05 s: Real;
06 sum,n,i: Integer;
07 Begin
08 ClrScr;
09 For i:=1 To n Do
10 Begin
11 Write('a[',i,']=');
12 Readln(a[i]);
13 End;
14 sum:=0;
15 For i:=1 To n Do
16 sum:=sum+a[i];
17 s:=sum/n;
18 Writeln('Ср.ариф.массива = ',s);
19 Repeat Until KeyPressed
20 End.
01 Uses Crt;
02 Const n=10;
03 Var
04 a:Array[1..n] of Integer;
05 s: Real;
06 sum,n,i: Integer;
07 Begin
08 ClrScr;
09 For i:=1 To n Do
10 Begin
11 Write('a[',i,']=');
12 Readln(a[i]);
13 End;
14 sum:=0;
15 For i:=1 To n Do
16 sum:=sum+a[i];
17 s:=sum/n;
18 Writeln('Ср.ариф.массива = ',s);
19 Repeat Until KeyPressed
20 End.

Пояснения к примеру

В примере количество элементов для массива задается константой n, т.е. для увеличения или уменьшения размерности массива необходимо сменить значение данной константы до выполнения программы. У данного метода решения есть один недостаток: не возможно задать размерность массива в процессе выполнения программы.