LINUX.ORG.RU

Pascal

 ,


0

1

Добрый день, товарищи форумчане. Может кто скажет, что я делаю не так? По заданию нужно отсортировать телефоны методом вставок из файла. Вот понимаю, что не должно быть сложным, но что-то торможу.

program lab1_1;
var
   Arrx : array[1..25] of char;
   Arr  : array[1..10, 1..25] of char;
   i, j, k     : longint;
   x, y    : integer;
begin
     assign(input, 'in.txt');
     reset(input);
     assign(output, 'result.txt');
     rewrite(output);

     for i := 1 to 10 do
     begin
          for j := 1 to 25 do
          begin
               read(Arr[i, j]);
               write(Arr[i, j]);
          end;
          readln; writeln;
     end;
     writeln;
      writeln('Sort numbers: ');
      for k:=1 to 25 do begin
  for j := 16 to 25 do
     begin
  for i := 2 to 10 do
begin
  if Arr[i-1,  j] <= Arr[i, j] then
  begin
  Arrx[k]:= Arr[i-1, j];
  Arr[i-1, j] := Arr[i, j];
  Arr[i, j]  := Arrx[k];
 end;
        end;
        end;
        end;
  write(Arr);
     close(input);
     close(output);     
       end.  



Последнее исправление: KrasnoGlazik (всего исправлений: 4)
Ответ на: комментарий от peregrine

Дело в том, что сделать данное задание нужно отдельно с процедурами, отдельно - без.

KrasnoGlazik
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.