Найти произведение средних арифметических элементов массивов x(n, m) и y(n, m) , нужно создать третий массив, каждым элементом которого будет среднее арифметическое соответствующих элементов массивов х и y.pascal​

==== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов:');

 var X := MatrRandom(m, n, -99, 99);

 Writeln('Массив Х');

 X.Println(6);

 var Y := MatrRandom(m, n, -99, 99);

 Writeln('Массив Y');

 Y.Println(6);

 Writeln('Массив результатов');

 var Z := new real[m, n];

 for var i := 0 to m - 1 do

   for var j := 0 to n - 1 do

     Z[i,j] := (X[i,j] + Y[i,j]) / 2;

 Z.Println(6,1);

   Println('Произведение средних равно', Z.ElementsByRow.Product)

end.

Алг
нач
   цел число элементов, позиция, максимум, минимум
   число элементов:=10
   целтаб a[1:число элементов]
   максимум:=-10000
   минимум:=10000
   нц для позиция от 1 до число элементов
       ввод a[позиция]
       если максимум<a[позиция] то максимум:=a[позиция]
       иначе если минимум>a[позиция] то минимум:=a[позиция]
             все
       все
   кц
   вывод "максимум=",максимум,", минимум=",минимум
кон

Тестовое решение:
>> 15:26:57 - Новая программа* - Выполнение начато
5
15
4
8
-2
7
2
9
11
10
максимум=15, минимум=-2
>> 15:27:49 - Новая программа* - Выполнение завершено

#include <iostream>

using namespace std;

int main()

{
    int a = 0, b = 0, c = 0;
    int h = 0, g = 0, k = 0;
    int j = 0, v = 0, l = 0;

    cout << "a - chas" << "\n" << "b - minutes" << "\n" << "c - seconds" << "\n";
    cin >> a >> b >> c;
    cout << "h - chas" << "\n" << "g -minutes" << "\n" << "k - seconds" << "\n";
    cin >> h >> g >> k;
    j = ((a*60)*60)+(b*60)+c;
    v = ((h*60)*60)+(g*60)+k;
    l = v - j;
    cout << l;

}