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

Узнай цену своей работы

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

Для каждой строки заданной матрицы определить и вывести сумму элементов, которые принадлежат строкам с четными номерами.

Решение задачи: «Для каждой строки заданной матрицы определить и вывести сумму элементов, которые принадлежат четным строкам»

textual
Листинг программы
program pr;
var
  a: array [1..100, 1..100] of integer;
  i, n, m, sum, j: integer;
begin
  writeln('Введите количетсов строк');
  readln(n);
  writeln('Введите количетсов столбцов');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  for i := 1 to n do
    if i mod 2 = 0 then
    begin
      sum := 0;
      for j := 1 to m do
      begin
        sum := sum + a[i, j];
      end;
      writeln('Сумма ', i, ' строки: ', sum);
    end;
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

  • a: массив целых чисел размером 100x100.
  • i, n, m, sum, j: целые числа, используемые для итерации по массиву и другим структурам данных. Программа начинается с запроса количества строк и столбцов матрицы. Затем, в цикле, каждому элементу массива присваивается случайное число от 0 до 20. Далее, в цикле, для каждой строки матрицы проверяется, является ли она четной (остаток от деления на 2 равен нулю). Если это так, то суммируются все элементы этой строки. Наконец, для каждой четной строки выводится сумма ее элементов.

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы