Найти среднее арифметическое пяти массивов состоящих из 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

(1360 + 560)/2 = 960 страниц текста 960-560 = 400 страниц фото400*320*640*4/8 = 40 960 000 б - на 400 страниц фото

40мб = 1  048  576 * 40 = 41 943 040 б(41 943 040 - 40 960 000)/960 = 1024 б на 1 текстовую страницу = 1024 символов на странице текста