Https://compendium.su/geographic/oge_2/19.ht ml​

#include <iostream>

#include <vector>

using namespace std;

#define ll long long

#define ld long double

signed main(){

   ll n,m;

   cin >> n >> m;

   vector<pair<ll,ll>> v;

   ll cur_min = LLONG_MAX;

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

       for(ll j = 0; j < m; j++){

           ll x;

           cin >> x;

           if(x < cur_min){

               v.clear();

               v.push_back({i,j});

               cur_min = x;

           }

           else if(x == cur_min)

               v.push_back({i,j});

       }

   for(auto i: v)

       cout << i.first << " " << i.second << "\n";

}

1)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 repeat

 if i mod 2=0 then S:=S+i;;

 inc(i)

 until i>n;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

 readln;

End.

2)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 while i<=N do

 begin

   if i mod 2=0 then S:=S+i;

   i:=i+1;

 end;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

end.

3)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 for i:=1 to N do

   if i mod 2=0 then S:=S+i;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

end.