Отсортировать массив методом выбора в порядке убывания (оформить в виде процедуры)

@Lacoste96 · Регистрация: 10.06.2015

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

@Arigato · 25.06.2015, 10:59

Функция нахождения среднего арифметического:

Pascal

tarray=array[1..n] of char;
...
function sred(a: tarray): real;
var
  i, s, c: integer;
begin
  c:=0; s:=0;
  for i:=1 to n do
    if not odd(ord(a[i])) then begin
      inc(s,ord(a[i]));
      inc(c);
    end;
  if c<>0 then sred:=s/c
  else sred:=0;
end;

Сортировок полно реализованных, ищите. Вывод массива и запись в файл тоже очень банально.

@Lacoste96 0 / 0 / 1 Регистрация: 10.06.2015 Сообщений: 3
		1
	Отсортировать массив методом выбора в порядке убывания (оформить в виде процедуры) 25.06.2015, 10:18. Показов 1287. Ответов 1 Метки нет (Все метки) Дан массив латинских букв А [1..N]. Отсортировать их методом выбора в порядке убывания (оформить в виде процедуры). Вычислить среднее арифметическое четных кодов (оформить в виде функции). Вывести на экран отсортированный массив и вычисленное значение. Записать в текстовый файл вычисленное среднее арифметическое значение. 0

Опции темы

Отсортировать массив методом выбора в порядке убывания (оформить в виде процедуры)

Решение