ни фига не понимаю как решить(

[StoneGod]

дан массив из 10 целых чисел, найти сумму чисел в которых есть хотя бы одна четная цифра

[JUDAS]

1. функция, которая вычисляет если ли в числе чётные цифры:

function CheckEven(Value : integer):boolean;
var i , V: integer;
begin
 result:=false;
 V:=Abs(Value);
 while V>10 do
 begin
  if (V mod 10) mod 2 = 0 then
  begin
   result:=true;
   break;
  end;
  V:=Trunc(V/10);
 end;
end;

2. далее в цикле перебираешь все элементы "пропуская чере эту функцию" Если функция возвращает true - элемент "твой"

[NetSpace]

даны Вам числа: 33, 4, 56, 11, 12, 34, 92
числа 33 и 11 исключаете сразу, т.к. в них только нечётные цифры 1 и 3.
а вот остальные содержат в себе чётные цифры: 56 -6, 4 -4, 12 - 2, 34 - 4, 92 - 2
и из вам нужно сложить. что может быть проще? начните делать код, а дальше обсудим его вместе.

[JUDAS]

вторая часть кода, видно тут реально ленивый народ:

var N : array[1..10] of integer = (33, 4, 56, 11, 12, 34, 92, 111, 45, 39);
begin
 R:=0;
 for i:=1 to 10 do
 if CheckEven(N[i]) then R:=R+N[i];
end;

потом удивляются почему ихние программные продукты не пользутся популярностью

[StoneGod]

program gh;
function CheckEven(Value:integer):boolean;
var
a:array [1..10] of integer;
k,i,p,o:integer;
result:boolean;
begin
writeln('vvedi massiv');
for i:=1 to 10 do
readln(a[i]);
result:=false;
k:=Abs(Value);
while k>10 do
begin
if (k mod 10) mod 2=0 then
begin
result:=true;
break;
end;
k:=Trunc(k/10);
end;
begin
p:=0;
for i:=1 to 10 do
if CheckEven(a[i]) then p:=p+a[i];
writeln('p=',p);
end.
я написал но паскалю всё равно что то не нравится

[JUDAS]

program Project1;

function CheckEven(Value : integer):boolean;
var i , V: integer;
begin
 result:=false;
 V:=Abs(Value);
 if V<10 then
 begin
  result:=V mod 2 = 0;
  exit;
 end;
 while V>10 do
 begin
  if (V mod 10) mod 2 = 0 then
  begin
   result:=true;
   break;
  end;
  V:=Trunc(V/10);
 end;
end;

var i,R : integer;
    a   : array [1..10] of integer;
begin
 writeln('vvedi massiv');
 for i:=1 to 10 do
 readln(a[i]);

 R:=0;
 for i:=1 to 10 do
 if CheckEven(a[i]) then R:=R+a[i];
 writeln(' R=', R);
end.