Cделать программу в pascal по : "найти в двумерном массиве сумму массива, сумму элементов по столбцам и среднее арифметическое по строкам"

Пусть дан массив real arr[1..n][1..n1]
заведём массивы real s1[1..n], s2[1..n1]

n - кол - во строк
n1 - кол -во столбцов

Основная часть:

...
for i:= 1 to n do
s1[i] := 0;

for i:= 1 to n1 do
s2[i] := 0;

for i:=1 to n do begin
for j:=1 to n1 do begin
s1[i] := s1[i] + arr[i][j];
s2[j] := s2[j] + arr[i][j];
end;
s1[i] := s1[i] / n
end;

...

s1[i] - среднее арифметическое для i строки
s2[i] - сумма элементов для i столбца

11

Объяснение:

1. Алфавит мощностью 26 символов требует для кодирования символа 5 бит (2* < 26 <29). 14 символа займут 14х5 - 70 бит %3D 70 / 8%3D 8.75 байта, округляем до целого вверх, получаем 9 байт.

2. Номер года обозначается одним из 100 чисел. 2° < 100 > 2", поэтому для кодирования требуется 7 бит.

3. Номер для обозначается одним из 366 чисел. 2° < 366> 2°, поэтому для кодирования требуется 9 бит.

4. Всего для кодирования срока действия потребуется 7+9 %3 16 бит %3D16/2%3D2 байта 5. Вся информация на пропуске займет 9+2 3D 16 байт

Как то так

Объяснение:

// file_scope_using_namespace.cpp#include <iostream>#include <cstdlib>// "Математические функции".#include <cmath>using namespace std;// Определение своей функции.double log(double base, double arg){ // Через стандартный натуральный логарифм. return log(arg) / log(base);}int main(){ double a = 0, b = 0; // Числа с плавающей запятой. cout << "a = "; cin >> a; cout << "b = "; cin >> b; cout.precision(16); // 16 значащих знаков. cout << "log(b, a) = " << log(b, a) << endl; return EXIT_SUCCESS;}