C++ 17
#include <iostream>
using namespace std;
int digitOddMax(long n)
{
n = abs(n);
int r = -1;
while(n > 0)
{
int d = n % 10;
if((d > r) && (d % 2 == 0))
r = d;
n /= 10;
}
return r;
}
int main()
{
int n;
cin >> n;
int a[n];
long m;
for(int i = 0; i < n; i++)
{
cin >> m;
a[i] = digitOddMax(m);
}
for(int i = 0; i < n; i++)
cout << a[i] << " ";
cout << endl;
return 0;
}
ты же получается цикл только у икса сделал, я исправил, если не так пиши переделаю.
var x, y, r: integer;
begin
r : = 10;
x : = 10; y : = 10;
while x 640 do
begin
circle(x, y, r);
x : = x + 20;
y : = y + 20;
r : = r + 20;
end;
end.