Даны две целые матрицы размера произвольной размерности. Вывести их на экран. Создание и вывод матрицы оформить в виде процедур. Найти и вывести (процедурой) ту из них, в которой самое большое количество четных чисел

В задании сказано, что надо найти 4-хзначных чисел, но в конце написано, что значение чисел не должно превышать 300.

Но числа меньше 300 будут трехзначными, поэтому в моей программе числа могут быть больше 300.

Может быть опечатка в задании.

Программа:

var kol, n, i, a: integer;

sum: real;

z: boolean;

begin

 writeln('Введите количество чисел');

 readln(n);

 if (n > 100) then begin

   writeln('Ошибка');

   exit;

   end;

   sum:= 0;

   kol:= 0;

   z:= false;

 writeln('Введите числа');

 for i:= 1 to n do begin

   readln(a);

   if (((a div 10000) = 0) and ((a mod 2) = 1) and (a > 0)) then begin

     sum:= sum + a;

     kol:= kol + 1;

    if((a mod 5) = 0) then z:= true

   end;

 end;

 if ((kol = 0) or (z = false)) then begin

   writeln('Нет');

 end

 else begin

   sum := sum / kol;

   writeln('Среднее значение суммы: ', sum);

   writeln('Количество чисел: ', kol);

 end;

end.

#include <iostream>

#include <cmath>

using namespace std;

#define ld long double

struct triangle{

   ld a;

   ld b;

   ld c;

};

ld square(triangle t){

   ld p = (t.a + t.b + t.c)/2;

   return sqrt(p * (p - t.a) * (p - t.b) * (p - t.c));

}

triangle t1,t2;

void solve(){

   if(square(t1) == square(t2))

       cout << "ИСТИНА";

   else

       cout << "ЛОЖЬ";

}

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   cin >> t1.a >> t1.b >> t1.c >> t2.a >> t2.b >> t2.c;

   solve();

}