Отсортировать массив латинских букв методом выделения минимального элемента в порядке возрастания

@Antoshka_2003 · Регистрация: 13.05.2015

Author24 — интернет-сервис помощи студентам

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

Pascal

Program array;
USES Crt;
Const maxn=30;
VAR a:array[1..maxn] OF Char;
    i, j, n: integer;
    t:char;
BEGIN clrscr;
write (`n = `);
readln (n);
write('vvodite bukvi');
for i:=1 to n do read (a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[j] < a[i] then
  begin
  t:=a[j];
  a[j]:=a[i];
  a[i]:=t;
  end;
write('Otsortirovanii masiv: ');
for i:=1 to n do write (a[i]);
writeln;
readkey;
End.

Как вычислить среднее арифметическое наименьшего и наибольшего кодов элементов?

@Puporev · 31.05.2015, 19:46

Сообщение от Antoshka_2003

Как вычислить среднее арифметическое наименьшего и наибольшего кодов элементов?

Pascal

1	s:=(ord(a[1])+ord(a[n]))/2;

@Antoshka_2003 · 31.05.2015, 23:55 **[ТС]**

Спасибо, а не могли бы вы помочь найти ошибку, а то не как не могу?
Пишет illegal character <$60>

@Puporev · 01.06.2015, 05:48

У Вас неправильные апострофы в строке 8.

Pascal

uses crt;
const maxn=30;
var a:array[1..maxn] of char;
    i, j, n: integer;
    t:char;
    s:real;
begin
clrscr;
write ('n = ');
readln (n);
writeln('vvodite bukvi');
for i:=1 to n do read (a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j] < a[i] then
 begin
  t:=a[j];
  a[j]:=a[i];
  a[i]:=t;
 end;
writeln('Otsortirovanii masiv: ');
for i:=1 to n do write (a[i]);
writeln;
s:=(ord(a[1])+ord(a[n]))/2;
write('Среднее арифметическое меньшего и большего кодов=',s:0:2);
readkey;
End.

@Antoshka_2003 · 01.06.2015, 18:48 **[ТС]**

Спасибо огромное. блин как не заметил((

@Antoshka_2003 0 / 0 / 0 Регистрация: 13.05.2015 Сообщений: 5
	31.05.2015, 23:55 [ТС]	3
	Спасибо, а не могли бы вы помочь найти ошибку, а то не как не могу? Пишет illegal character <$60> 0

@Antoshka_2003 0 / 0 / 0 Регистрация: 13.05.2015 Сообщений: 5
	01.06.2015, 18:48 [ТС]	5
	Спасибо огромное. блин как не заметил(( 0

Отсортировать массив латинских букв методом выделения минимального элемента в порядке возрастания

Решение