Запишите на языке паскаль программу решения номер 34 к § 3.4. считайте рост претендента в команду случайным числом из диапозона от 150 до 200 см, а число претендентов n=50. (номер 34 - объявлен набор в школьную баскетбольную команду. извесьен рост каждого из n учеников, желающих попасть в эту команду. составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.

#include <iostream>
using namespace std;
int main()
{
    int n, m, c;
    cout << "n = ";
    cin >> n;
    cout << "m = ";
    cin >> m;
    int a[n][m];
    for(int i = 0; i < n; i++)
    {
        cout << "Введите " << i + 1 << " рядок матрицы (" << m << " элементов) через пробел" << endl;
        for(int j = 0; j < m; j++)
        {
            cin >> a[i][j];
            if(a[i][j] % 2 == 1)
            {
                c++;
            }
        }
    }
    cout << "Количество нечетных элементов массива равно " << c;
}

#include <iostream>
using namespace std;
int main()
{
    int n, mi = 0, mj = 0, sum = 0;
    cout << "n = ";
    cin >> n;
    int a[n][n];
    for(int i = 0; i < n; i++)
    {
        cout << "Введите " << i + 1 << " рядок матрицы (" << n << " элементов) через пробел" << endl;
        for(int j = 0; j < n; j++)
        {
            cin >> a[i][j];
            if(a[i][j] < a[mi][mj])
            {
                mi = i;
                mj = j;
            }
        }
    }
    for (int j = 0; j < n; j++) 
   {
        sum += a[mi][j];
    }
    cout << "Сумма элементов рядка с минимальным элементом равна " << sum;
}

var
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
  1: begin
     writeln('Введите 10 элементов массива: ');
     for i:= 1 to 10 do readln(X[i]);
     a:=X[1];
      for i:= 1 to 10 do
       if a < X[i] then a:=X[i];
     writeln('Максимальный элемент: ',a);
     end;
 2: begin
     writeln('Массив: ');
     for i:= 1 to 10 do
     begin
      X[i]:=random(101);
      write(X[i]:4);
     end;
    writeln;
    a:=X[1];
     for i:= 1 to 10 do
       if a < X[i] then a:=X[i];
     writeln('Максимальный элемент: ',a);
     end;
  end;
end.