Программа обработки массива

[Juli Warner]

Нужна помощь. Может кто-нибудь написать код программы?
Дан массив латинских букв А [1..n]. Отсортировать их методом выделения максимального элемента в порядке убывания. Вычислить сумму четных кодов элементов. Вывести на экран отсортированный массив и вычисленное значение.
Буду очень благодарна

[stalker1995s]

Пожалста =)

uses crt;
var a:array[Byte] of integer;
i,j,k,r,max,n:integer;
sred:real;
begin
clrscr;
Writeln('Vvedite razmernost massiva');
readln(n);
writeln('Vvedite elementy massiva');
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
for j:=1 to n do begin
max:=a[1];
for i:=1 to n-(j-1) do
if (a[i]>=max) then begin
max:=a[i];
k:=i;
end;
r:=a[n-(j-1)];
a[n-(j-1)]:=max;
a[k]:=r;
end;
sred:=0;
for i:=1 to n do begin
write('a[',i,']=',a[i],' ');
sred:=sred+a[i];
end;
writeln;
sred:=sred/n;
Writeln('Srednee znachenie=',sred);
readkey;
end.

Если помог, нажмите на весы

[Mad_Cat]

Цитата:

а должно быть

код

Если помог, нажмите на весы

а толку?

[Juli Warner]

Среднее значение вычислил отлично)
Только задача стояла иная)

[Juli Warner]

При выводе переменные задаются заглавными буквами. Как исправить?

Uses Crt;
var a:array [1..100]of char;
i,n,j,x,s:integer;
buf:char;
Begin
ClrScr;
WriteLn('Vvedite razmer massiva');
ReadLn(n);
WriteLn('Vvedite elementy massiva');
for i:=1 to n do
ReadLn(a[i]);
WriteLn('Massiv do sortirovki');
for i:=1 to n do
Write(a[i],'');
WriteLn;
WriteLn('Ishodniy masssiv:');
for i:=1 to n do
begin
a[i]:=chr(65+random(26));
write(a[i]:2);
end;
WriteLn;
for i:=1 to n-1 do
begin
x:=i;
for j:=i+1 to n do
if a[j]>a[x] then x:=j;
buf:=a[i];
a[i]:=a[x];
a[x]:=buf;
end;
WriteLn('Uporyadochenniy massiv:');
s:=0;
for i:=1 to n do
begin
write(a[i]:2);
if ord(a[i]) mod 2 =0 then s:=s+ord(a[i]);
end;
WriteLn;
Write('Summa chetnih kodov=',s);
ReadLn
End.

[ViktorR]

У Вас массив символов формируется рандомно и в диапазоне заглавных букв.
Либо расширьте диапазон, изменив значение в функции random, или оставьте ручной ввод.



Как-то так, ...