Дан двумерный массив ,выдать на печать номера столбцов ,в которых среднее арифметическое элементов столбца отрицательное. заранее

Program n1;     uses crt; const nn=1000; var        m: array[1..nn,1..nn] of integer;       n,i,j: integer;         s: real; begin       clrscr;     randomize; //определяем размеры массива writeln('введите размерность');   readln(n); //заполняем массив рандомными числаслами for i: =1 to n do     for j: =1 to n do m[i,j]: =random(100)-50; //выводим таблицу(массив) на экран for i: =1 to n do begin   for j: =1 to n do write(m[i,j]: 4);     writeln;   end; //считаем среднее арифметическое столбцов и выводим номера for j: =1 to n do begin    s: =0; {обнуляем переменную перед началом каждого вложенного цикла}        for i: =1 to n do begin            s: =s+m[i,j]; {считаем сумму элементов столбца}        end;     s: =s/n; {считаем среднее арифметическое}    if s< 0 then write(j: 3); {проверяем условие }   end;   end.  

ответ:

8.03125(без округления), 8.0 после округления.

объяснение:

прикрепляю решение на python 3.7.4