Найти среднее арифметическое пяти массивов состоящих из 10 целых чисел. Turbo Pascal

Uses

Crt;

const

n = 10;

type

V = array[1 ... n] of integer;

function Mid (var a: V) : double;

var

i, s: integer;

begin

s : = 0;

for i : = 1 to n do s : = s + a[i];

Mid : = s / n

end;

var

x: V;

i, j: integer;

m: double;

begin

Randomize;

m : = 0;

for i : = 1 to 5 do

begin

Writeln ('Элементы массива ', i) ;

for j : = 1 to n do

begin

x[i] : = Random (100) ;

Write (x[i]:3)

end;

Writeln;

m : = m + Mid (x)

end;

Writeln ('Среднее арифметическое пяти массивов равно ', m)

end.

Тестовое решение:

Элементы массива 1

95 44 54 86 52 39 28 79 29 43

Элементы массива 2

75 55 26 22 12 93 34 60 34 42

Элементы массива 3

55 80 50 54 52 46 85 47 11 86

Элементы массива 4

33 35 5 64 36 66 76 55 24 43

Элементы массива 5

31 63 66 11 88 4 31 99 28 39

Среднее арифметическое пяти массивов равно 76.6