Question

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

Answer 1

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.