Расположить столбцы в порядке возрастания количества нечетных элементов, стоящих на четных строках.
Заготовка:
PROGRAM PRP2;
const
n=5;
m=5;
var
a:array[1..n,1..m] of integer;
i,j:integer;
BEGIN
{заполняем и выводим матрицу}
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(30);
write(a[i,j],' ');
end;
writeln;
end;
{основной алгоритм}
{выводим матрицу}
writeln('Полученная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
END.
Сообщение отредактировано: dog -