Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
пожалуйста помогите с программой
вобщем мне дали задание: Дан массив латинских букв A[1..n]. Отсортировать их методом выделения максимального элемента в порядке убывания. Вычислить сумму четных кодов элементов. Вывести на экран отсортированный массив и вычисленное значение.
я знаю что нужно сделать потипу этой проги, ну и изменить там под мои запросы(макс элемент, сумма ну вы поняли) :
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.

и потом сделать сортировку в виде процедуры, сумму в виде функции и в текстовый файл записать четные коды.. я буду очень очень благодарна, если кто попытается помочь..)

Добавлено (03.06.10, 16:50)
---------------------------------------------
вот ладно, спасиБО что помогли!! уже ненадо..

1 | Автор: Vika12 | 2010-06-03, 16:50   |  Репутация: [ + 0 ]
1 | Автор: Vika12 | 2010-06-03, 16:50   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: