fork download
copy 
  1. program SumEvenElements;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. const
  9.   n = 3; // количество строк
  10.   m = 4; // количество столбцов
  11.  
  12. var
  13.   matrix: array[1..n, 1..m] of Integer;
  14.   sums: array[1..n] of Integer;
  15.   i, j: Integer;
  16.  
  17. begin
  18.   // Инициализация матрицы
  19.   matrix[1, 1] := 1; matrix[1, 2] := 2; matrix[1, 3] := 3; matrix[1, 4] := 4;
  20.   matrix[2, 1] := 5; matrix[2, 2] := 6; matrix[2, 3] := 7; matrix[2, 4] := 8;
  21.   matrix[3, 1] := 9; matrix[3, 2] := 10; matrix[3, 3] := 11; matrix[3, 4] := 12;
  22.  
  23.   // Обнуление массива для суммы четных элементов
  24.   for i := 1 to n do
  25.     sums[i] := 0;
  26.  
  27.   // Подсчет суммы четных элементов в каждой строке
  28.   for i := 1 to n do
  29.     for j := 1 to m do
  30.       if matrix[i, j] mod 2 = 0 then
  31.         sums[i] := sums[i] + matrix[i, j];
  32.  
  33.   // Вывод результата
  34.   for i := 1 to n do
  35.     WriteLn('Сумма четных элементов строки ', i, ': ', sums[i]);
  36.  
  37.   ReadLn; // Ожидание ввода для завершения программы
  38. end.
  39.  
Success #stdin #stdout 0s 5276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Сумма четных элементов строки 1: 6
Сумма четных элементов строки 2: 14
Сумма четных элементов строки 3: 22
https://ideone.com/Sss67z
language:
Pascal (fpc 3.0.4)
created:
5 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!