запуталась с задачей

[Екатерина А.]

Это условие ко всем задачам
Дана матрица, состоящая из n строк и n столбцов или одномерные массивы из n элемен-тов каждый. Составить алгоритм и программу для получения и вывода указанных в усло-вии результатов и самих массивов, если изменялись какие-либо их элементы.
А вот мой вариант

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

[Sm1Le]

sum:=0;
for i:=1 to N
 begin
  for j:=1 to N 
   begin
     sum:=sum+arr[i,j];
   end;
 end;
sum:=sum/(N*N);
if sum<0 then  
 begin
  for i:=1 to N do 
   begin
    arr[1,i]:=arr[1,i]*sum;{не помню первые СТРОКА или столбец=) }
   end;
 end;

[Екатерина А.]

спасибки,а у кого нибудь еще варианты будут?

[Sm1Le]

Сообщение от Екатерина А.

спасибки,а у кого нибудь еще варианты будут?

не работает ?

[Екатерина А.]

я просто тоже не помню ,первая строка или столбец

[Sm1Le]

1 строка
2 столбец

=)

[Екатерина А.]

спасибо большое

[Екатерина А.]

все равно что то не хочет работать