Программа, которая в последовательности натуральных чисел определяет максимальное четное двузначное число. Последовательности нет, поэтому создаём её в виде массива.
var
a: array [1..20] of integer; // Создаём массив из 20 элементов
max: integer; // и переменную для хранения максимального значения
begin
for var i := 1 to 20 do
begin
a[i] := random(0, 200); // Заполняем натуральными числами
write(a[i] + ' '); // Выводим на экран для проверки программы
end;
foreach i: integer in a do // Проходим по элементам массива
if (i.ToString().Length = 2) and (i mod 2 = 0) then // Если 2хзн и чёт,то
if (max < i) then max := i; // Если макс меньше, то макс=новый
writeln('максимальное четное двузначное число: ' + max);
end.
#include <iostream>
#include <cmath>
#include <set>
#include <vector>
#include <algorithm>
#pragma GCC optimize("Ofast")
using ll = long long;
using ld = long double;
using namespace std;
const ll n = 4, m = 5;
ll a[n][m];
void print(){
for(ll i = 0; i < n; i++){
for(ll j = 0; j < m; j++)
cout << a[i][j] << " ";
cout << "\n";
}
cout << "\n";
}
signed main() {
/** матрица + матрица квадратов */
for(ll i = 0; i < n; i++)
for(ll j = 0; j < m; j++)
cin >> a[i][j];
print();
for(ll i = 0; i < n; i++)
for(ll j = 0; j < m; j++)
a[i][j] *= a[i][j];
print();
/** матрица + матрица квадратов */
srand(time(NULL));
/** рандомная матрица + матрица удвоения */
for(ll i = 0; i < n; i++){
for(ll j = 0; j < m; j++){
a[i][j] = rand() % 10;
cout << a[i][j] << " ";
a[i][j] *= 2;
}
cout << "\n";
}
cout << "\n";
print();
/** рандомная матрица + матрица удвоения */
}