Определить сумму четных элементов в каждом столбце и упорядочить номера столбцов по убыванию значений сумм - Pascal ABC

Формулировка задачи:

Дана квадратная матрица размером n x n, содержащая целые положительные числа. Определить сумму четных элементов в каждом столбце матрицы и упорядочить номера столбцов по убыванию значений найденных сумм с помощью сортировки. Вывести упорядоченный список номеров столбцов и соответствующих им сумм.

Код к задаче: «Определить сумму четных элементов в каждом столбце и упорядочить номера столбцов по убыванию значений сумм - Pascal ABC»

textual
const n=10;
var a:array[1..n,1..n] of integer;
    b:array[1..2,1..n] of integer;
    i,j,k,x:integer;
begin
randomize;
writeln('Матрица');
for i:=1 to n do
 begin
  b[1,i]:=i;
  for j:=1 to n do
   begin
    a[i,j]:=1+random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for j:=1 to n do
 begin
  b[2,j]:=0;
  for i:=1 to n do
  if a[i,j] mod 2=0 then inc(b[2,j],a[i,j]);
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if b[2,i]<b[2,j] then
for k:=1 to 2 do
 begin
  x:=b[k,i];
  b[k,i]:=b[k,j];
  b[k,j]:=x;
 end;
writeln('Номера столбцов и суммы четных элементов в них в порядке убывания');
for i:=1 to 2 do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln;
 end;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ