было бы не плохо получить помощь от опытных программистов.
задача: дан двумерный массив W размерности n на m. Расположить столбцы в порядке возрастания произведений элементов этих столбцов, стоящих на нечётных строках.
Решение (с ошибкой):
program sortir_2;
const n=3; m=4;
var W: array[1..N,1..M] of integer;
sum: array [1..N] of integer;
i,j,max,n_max,k: integer;
s: integer;
begin
writeln('vvdite massiv:');
for i:=1 to N do
for j:=1 to M do
readln(W[i,j]);
for i:=1 to N do
begin
for j:=1 to M do
write(W[i,j],' ') ;
writeln;
end;
for j:=1 to M do
begin
s:=1;
for i:=1 to N do
if i mod 2 = 1 then
begin
s:=s*W[i,j];
end;
sum[i]:=s;
end;
if n mod 2=0 then k:=n mod 2
else k:=n mod 2+1;
for i:=1 to k do
write(sum[i],' ');
writeln;
for i:=1 to k-1 do
begin
max:=sum[i];
n_max:=i;
for j:=i+1 to k do
if sum[j]<max then
begin
max:=sum[j];
n_max:=j;
end;
sum[n_max]:=sum[i];
sum[i]:=max;
end;
for i:=1 to k do
write(sum[i],' ');
writeln;
end.
на экран выводит матрицу 2 на 2, со всеми нулевыми элементами. напишите пожалуйста если найдёте ошибку.