[Ghost]

R.E.Mus
Это чересчур грубое округление. Можно было сделать так:

str (x[i]:10:6, y[i]);

Т.е. указать через ':' количество симолов на всю запись числа и на его дробную часть в строковом представлении.

З.Ы. И все-таки я угадал

З.Ы.Ы.

uses
  crt;
const
  n = 10;
var
  x: array [1..n] of real;
  i, p, k, s: integer;
begin
  clrscr;
  writeln ('введите массив:');
  for i := 1 to n do begin
    write ('x[', i:2, '] = ');
    readln (x[i]);
  end;
  s := 0;
  for i := 1 to n do begin
    p := trunc (x[i]);
    while p <> 0 do begin
      k := p mod 10;
      if (k mod 2) = 0 then inc (s, k);
      p := p div 10;
    end;
  end;
  writeln ('сумма четных цифр целых частей = ', s);
  writeln ('нажмите любую кнопку для выхода...');
  readkey;
end.