Дана целочисленная матрица М(m, n). Числа m, n и элементы матрицы вводятся
пользователем. Сформировать одномерный массив из элементов матрицы, которые
удовлетворяют условию a< М(i, j) количество, сумму и среднее арифметическое элементов этого массива. Вычисление
средних значений, и суммы выполнить через функции

Пример работы:

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.