Antarez,
for($i = 100; $i<1000; $i++)
{
if(((($i - ($i div 100)*100) div 10) * 10 == ($i div 100) + (($i - ($i div 100)*100) - ((($i - ($i div 100)*100) div 10) * 10)
{
echo $i.'<br />';
}
}

Упростиш и на паскаль переведеш думаю сам

pangimun,
$num = $sum = 0;

for($i=0; $i < $num_elements_in_array; $i++)
{
if(ord($array[$i]) mod 2 == 0)
{
inc($num);
$sum = $sum + ord($array[$i]);
}
}

writeln($sum/$num);

жуткий синтаксический сумбур на паскаль переведеш?

sum:=0;
num:=0;
for i:=1 to n do
begin
if (ord(a[i]) mod 2 = 0)
then
sum:=sum+ord(a[i]);
num:=num+1;
end;
writeln('Srednee arifmeti4eskoe 4etnih kodov = ',(sum/num):2);
======================
сделал,но что то числа маленькие в среднем арифметическом выдает.
8,2 и т.п..

ввожу массив из 4
букв
abcd
среднее арифметическое четных кодов = 9.900000000Е+01
что-то не то,у букв коды равны десяткам помоему..

а какой тип задать чтобы результат был 99
а не 9.900000000Е+01