Question

Дана матрица размера M × N. Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его элементов. Условный оператор не использовать. напишите на паскале :(

Answer 1

Ответ:

Program zadanie;

const M=4; N=7;

var i,j,sum:integer;

a:array[1..M,1..N] of integer;

begin

for i:=1 to M do begin

 for j:=1 to N do begin

   a[i,j]:=random(10);

   write(a[i,j]:3);

   end;

 writeln();

end;

i:=2;  

while i <= N do begin

 print('Сумма элементов ',i,'-ого столбца: ');

 for j:=1 to M do begin

 sum:=sum+a[j,i];

 end;

 println(sum);

 sum:=0;

 i:=i+2;

 end;

end.

Answer 2

Для нахождения суммы элементов каждого четного столбца в матрице размера M × N на Pascal, вы можете использовать следующий код:

pascalCopy code
program SumOfEvenColumns;

const
  M = 3;  // Замените на желаемое количество строк
  N = 4;  // Замените на желаемое количество столбцов

var
  matrix: array[1..M, 1..N] of Integer;
  columnSum: Integer;
  i, j: Integer;

begin
  // Здесь заполните вашу матрицу элементами
  // Например:
  // matrix[1, 1] := 1;
  // matrix[1, 2] := 2;
  // ...

  for j := 2 to N step 2 do
  begin
    columnSum := 0;
    for i := 1 to M do
    begin
      columnSum := columnSum + matrix[i, j];
    end;
    writeln('Сумма элементов столбца ', j, ' = ', columnSum);
  end;
end.

В этом примере мы объявляем матрицу matrix размера M × N и заполняем ее значениями. Затем мы проходим через каждый четный столбец (начиная с 2) и вычисляем сумму его элементов, не используя условные операторы. Результат выводится на экран. Убедитесь, что заменили M и N на нужные вам размеры матрицы и заполнили матрицу своими данными.