Дана действительная матрица размера m×n. получить одномерный массив, элементы которого равны количеством неотрицательных элементов в столбцах. вывести элементы полученного массива на экран и в типизированный дисковой файл f1. вычислить среднее арифмитическое значение элементов файла f1. вывести в файл f2 те элементы файла f1, которые не превышают найденного среднего. использовать при решении подпрограммы.

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   var (m,n): =readinteger2('количество строк и столбцов в матрице: ');   var a: =matrgen(m,n,(i,j)-> (random(9000)-4500)/100);   writeln('*** исходная матрица ***');   a.println(7,2); writeln(7*a.colcount*'-');   var b: =a.cols.select(c-> c.where(t-> t> =0).count).toarray;   if b.length=0 then begin       writeln('в матрице все элементы отрицательные');       exit       end;   b.println;   var f1: file of integer;   assign(f1,'f1.bin'); rewrite(f1);   foreach var t in b do write(f1,t);   reset(f1);   var (s,k): =(0,0);   var v: integer;   while not eof(f1) do begin       read(f1,v); s+=v; k+=1       end;   f1.close;   var avg: =s/k;   var f2: file of real;   assign(f2,'f2.bin'); rewrite(f2);   var q: =a.elementsbyrow.where(t-> t< =avg);   q.println;   foreach var c in q do write(f2,c);   f2.close end. пример количество строк и столбцов в матрице: 4 9 *** исходная матрица ***   -27.55  14.63  25.01  35.00  34.53 -24.49 -43.20  35.73  35.05   -9.96 -40.27    6.45  43.42    4.31  21.48  17.16  40.35  -3.58   -28.37 -11.17  32.04  26.07 -29.32 -24.20  -7.75  41.32    9.54   34.89  37.10 -26.09  22.64  16.69 -28.75  19.16  22.66    7.52 1 2 3 4 3 1 2 4 3 -27.55 -24.49 -43.2 -9.96 -40.27 -3.58 -28.37 -11.17 -29.32 -24.2 -7.75 -26.09 -28.75

Всего 300 квартир из 300 квартир- 9 квартир однозначные 91 квартира двухзначная и 299 квартир двух значных, тогда 299+91+ 9= 399 ответ: 399 цифр на дверях