Составьте программу находящую сумму четных чисел от 1 до 10. чему она равна?

Var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
 if i mod 2 = 0 then s:=s+i;
writeln('s=',s);
end.

Результат:
s=30

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   int n, m;

   cin >> n >> m;

   vector<vector<int>> matrix(n, vector<int>(m));

   for (int i = 0; i < n; i++)

   {

       for (int j = 0; j < m; j++)

       {

           cin >> matrix[i][j];

       }

   }

   vector<int> ans;

   for (int i = 0; i < m; i++)

   {

       int pr = 1;

       for (int j = 0; j < n; j++)

       {

           pr *= matrix[j][i];

       }

       ans.push_back(pr);

   }

   for (auto x : ans)

   {

       cout << x << " ";

   }

return 0;

}

Значения элементов матрицы вводятся с клавиатуры. В векторе ans лежит ответ.

//PascalABC.NET версия 3.3.5.1636 от 10.03.18
//Если программа не запускается, то обновите версию

const
    n = 9;

var
    a: array[0..n] of integer;
    i, k: integer;

begin
    for i := 0 to n do begin
        a[i] := n - i;
        write(a[i], ',');
        end;
        writeln;
    
    for i := 0 to n do
    begin
        K := A[i];
        A[K] := 0;
    end;
    
    k := 0;
    for i := 0 to n do
    begin
        write(a[i], ',');
        if a[i] = 0 then k := k + 1;
    end;
    writeln;
    writeln('k=',k);
end.

Вывод
9,8,7,6,5,4,3,2,1,0, - изначальный массив
0,8,7,6,5,0,0,0,0,0, - после изменения
k=6 - колво нулей