Двумерные массивы

[PIPL]

Пожалуйста решите задачу:
Заменить все элементы двумерного массива целых чисел меньшие среднего арифметического первого столбца на квадраты этих элементов.

[Naeel Maqsudov]

M - столбцы, N- строки, A[1..N,1..M] - массив

Код: Выделить всё

//среднее I столбца
Avg:=0;
for i:=1 to m do Avg:=A[i,1];
Avg:=Avg/n;
//замена
for i:=1 to n for j:=1 to m do if A[i,j]<Avg then A[i,j]:=sqr(A[i,j]);