I, j : integer;
A
: Matr;
col_min : integer; { индекс
столбца с мин. суммой квадратов элементов
}
min
: integer; { значение мин. суммой квадратов
элементов }
sum
: integer;
begin
repeat
write('Введите размерность
массива n, m: ');
readln(n, m);
until
(n > 1) and (n <= MAX) and (m > 1) and (m <= MAX);
writeln('Ввод матрицы:');
for
i:=1 to n do
for
j:=1 to m do
read(A[i, j]);
{
вывод исходной матрицы }
writeln;
writeln('Исходные
данные.');
for
i:=1 to n do
begin
for
j:=1 to m do write(A[i, j]:4, ' ');
writeln;
end;
{
нахождение максимальных элементов
столбцов }
for
i:=1 to m do { цикл по столбцам }
begin
{
нахлждение суммы квадратов элементов
для i-го столбца }
sum
:= 0;
for
j:=1 to n do { цикл по строкам }
sum := sum + A[j, i] * A[j, i];
if
i = 1 then
begin
col_min := 1;
min := sum;
end
else
if sum < min then
begin
col_min := i;
min := sum;
end;
end;
writeln('Столбец с
минимальной суммой квадратов элементов:
', col_min);
end.