Developing.ru

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

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]);

Developing.ru

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

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

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