Даны натуральное число n, действительная матрица размера n х 9. найти среднее арифметическое каждого из столбцов имеющих четные номера.

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =9;   writeln('*** исходная матрица ***');   var a: =new real[n,m];   randomize;   for var i: =0 to n-1 do       for var j: =0 to m-1 do           a[i,j]: =random(-100,100)/10;   a.println(5,1); writeln(5*a.colcount*'-');   var col: =1;   write('средние арифметические: ');   while col< =m-1 do begin       write(a.col(col).average: 0: 2,' ');       col+=2       end;   writeln end. пример количество строк в матрице: 6 *** исходная матрица ***   9.6 -4.5  0.2 -7.6  5.4 -4.8 -0.1 -8.6  9.3   -3.6 -3.3 -4.6 -4.6 -2.0 -7.3  5.4  5.1 -9.3   3.2  1.0 -8.1 -5.9 -6.1  9.8 -0.7 -2.5 -1.5   -3.0-10.0 -7.4 -6.7  9.6 -2.1  9.3 -4.6 -3.8   9.7 -7.8  3.1  0.9 -3.0  5.4  9.7  2.9 -9.6   -3.3  4.4 -1.7 -5.0  8.5  0.9 -3.9 -3.4  1.3 средние арифметические: -3.37 -4.82 0.32 -1.85

Объяснение:

В этой программе нельзя ставить "-",ну а если вдруг все равно не получается скопируй удали файл и вставь в новый