массив

[Вика1992]

Дан массив латинских букв A[1..n]. Отсортировать их методом выделения максимального элемента в порядке убывания. Вычислить сумму четных кодов элементов. Вывести на экран отсортированный массив и вычисленное значение.
P.S. и желательно как можно скорее)
если можно, то как можно проще написать..)

[DoDge_VipeR]

сортировка выбором )

 
....
For i := 1 to n-1 do 
begin 
r := i; 
For j := i+1 to n do If a[r] > a[j] then r := j; 
Y:=a[r]; a[r]:=a[i]; a[i]:=Y;
end

сумма четных кодов

for i:=1 to n do
if (ord(a[i]) mod 2)=0 then
inc(s,ord(a[i]));

[Вика1992]

аха, а бесплатно уже нельзя помочь!?

[DoDge_VipeR]

бесплатно уже нельзя помочь!?

а вы сами начните делать - глядишь кто-нибудь и поможет

[Вика1992]

та я неразбираюсь в них..

[ArtJuhn]

на каком языке нужно сделать ?

[Вика1992]

в паскале)

[ArtJuhn]

Начал делать, не получается сделать даже элементарно ввод/вывод, может кто-то укажет на ошибку ?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var Mas: array of char;
    i,N:integer;
begin
  Write('Enter number of array elements: ');
  ReadLn(N);
  for i:=1 to N do
    begin
      Write('Enter element ',i,' > ');
      ReadLn(Mas[i]);
    end;
  for i:=1 to N do
    Write(Mas[i],' ');
  ReadLn;
end.

[Вика1992]

вобщем я узнала, должно выглядеть типо того, только там надо сортировку и сумму сделать кажется.. ну то есть по моему заданию
Program MaccuB;
Uses crt;
Var a:array[1..30] of char;
i,j,k,m:integer;
b:char;
Begin
Clrscr;
Write('BBeguTe koJIu4ecTBo 3JIeMeHToB MaccuBa: ');
readln(m);
for i:=1 to m do readln(a[i]);
for J:=1 to m do
for i:=1 to m do
if a[j]>a[i] then
Begin
b:=a[j];
a[j]:=a[i];
a[i]:=b;
end;
WriteLN;
for i:=1 to m do write(a[i], ' ');
Writeln;
j:=0;
for i:=1 to m do
if (ord(a[i]) mod 3)=0 then
begin
inc(k,ord(a[i]));
inc(j);
end;
Writeln;
Writeln ('CpegHee 3Ha4eHue: ',k/j:4:2);
Readln;
Readkey;
END.

[Вика1992]

ArtJuhn есть идеи?