массив

[ArtJuhn]

Домучал, держи:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var 
    Mas: array of char;
    Count, i, j, N: integer;
    Tmp: char;

begin
  Write('Enter number of array elements: ');
  ReadLn(N);
  SetLength(Mas,N); //установка длины массива

  for i:=1 to N do
    begin
      Write('Enter element ',i,' > '); //ввод элементов массива
      ReadLn(Mas[i]);
    end;

  for j:=1 to N-1 do
    for i:=N downto i do
        if Mas[i-1] > Mas[i] then
          begin
            Tmp:=Mas[i];           //стандартный алгоритм пузырьковой сортировки
            Mas[i]:=Mas[i-1];
            Mas[i-1]:=Tmp;
          end;

  Write('Array: ');
  for i:=N downto 1 do
    Write(Mas[i],' ');   // вывод элементов массива
  WriteLn;

  Count:=0;
  for i:=1 to N do
     if (Ord(mas[i]) mod 2) = 0 then  //получаем код символа и проверяем на чётность
        Count:=Count+ord(Mas[i]);

  Write('Sum = ',Count); // вывод суммы чётных кодов
  ReadLn;
end.

Если что непонятно, спрашивай

[Вика1992]

вот ладно, спасибо за помошь!!
но ArtJuhn, ты хоть попытался) спс)