Отсортировать символьный массив методом вставки в порядке убывания. Вычислить сумму кодов нечетных элементов

@DIMON--KING · Регистрация: 20.01.2013

Дан массив латинских букв А [1..N]. Отсортировать их методом вставки в порядке убывания. Вычислить сумму кодов нечетных элементов. Вывести на экран отсортированный массив и вычисленное значение.

@ZX Spectrum-128 · 13.05.2015, 19:04

Изначально: (C) Puporev

Сообщение от DIMON--KING

Вычислить сумму кодов нечетных элементов

Сумма кодов элементов, стоящих на нечетных местах?

Pascal

const
  m=10;
var
  b:array[1..m] of char;
  x:char;
  sum,i,j:integer;
begin
  for i:=1 to m do
    readln(b[i]);
  for i:=2 to m do
     begin
        x:=b[i];
        j:=i-1;
      while (j>=1) and (b[j]<x) do
        begin
          b[j+1]:=b[j];
          j:=j-1;
        end;
      b[j+1]:=x;
    end;
  writeln('Отсортированный массив: ');
  sum:=0;
  for i:=1 to m do
    begin
      write(b[i]:4);
      if odd(i) then
        sum:=sum+ord(b[i]);
    end;
  writeln; 
  writeln('Сумма кодов нечетных элементов: ',sum);
  readln;
end.

@DIMON--KING 0 / 0 / 0 Регистрация: 20.01.2013 Сообщений: 8
		1
	Отсортировать символьный массив методом вставки в порядке убывания. Вычислить сумму кодов нечетных элементов 12.05.2015, 20:53. Показов 1733. Ответов 1 Метки нет (Все метки) Дан массив латинских букв А [1..N]. Отсортировать их методом вставки в порядке убывания. Вычислить сумму кодов нечетных элементов. Вывести на экран отсортированный массив и вычисленное значение. 0

Опции темы

Отсортировать символьный массив методом вставки в порядке убывания. Вычислить сумму кодов нечетных элементов

Решение