Получить из массива строку так, чтобы символы шли по порядку (ASCII), а в конце стояла точка

@Aleksey1 · Регистрация: 09.10.2011

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

задание: 1. Дан символьный массив А(N), где N– заданное натуральное число. Получить из него строку так, чтобы символы шли по порядку (ASCII), а в конце стояла точ-ка.

Pascal

uses crt;
var a:array[1..20] of char;
    i,n:byte;    m:set of char;
begin
  write('Введите размер массива N= ');readln(n);
  for i:=1 to n do
      begin
        write('Введите символ = ');readln(a[i]);
        m:=a[i];
      end;
writeln(m);
end.

@Puporev · 04.04.2012, 14:46

Pascal

uses crt;
var a:array[1..20] of char;
    n,i,j:byte;
    c:char;
    s:string;
begin
  write('Введите размер массива N= ');readln(n);
  for i:=1 to n do
   begin
    write('Введите символ = ');
    readln(a[i]);
   end;
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[i]>a[j] then
   begin
    c:=a[i];
    a[i]:=a[j];
    a[j]:=c;
   end;
 s:='';
 for i:=1 to n do
 s:=s+a[i];
 s:=s+'.';
 writeln(s);
end.

	04.04.2012, 14:46