SaveText.Ru

12221
  1. var A: array[1..100] of integer;
  2.     N, i,j,c : integer;  
  3.     f: text;
  4.     begin
  5.       assign(f, 'data.txt');
  6.       reset(f);
  7.       i := 0;
  8.       N:=1;
  9.       while (not eof(f)) and (i < 100) do begin
  10.      i:=i+1;
  11.       N := N + 1;
  12.       readln(f, A[i]);  
  13.        end;
  14.        
  15.     for i:=1 to N do
  16.     for j:=N-1 downto  i  do
  17.     if A[j] < A[j+1] then begin
  18.     c:=A[j]; A[j]:=A[j+1]; A[j+1]:=c;
  19.     end;
  20.  
  21.  
  22.      assign(f, 'output.txt');
  23.      rewrite(f);
  24.      for i:=1 to N-1 do
  25.        writeln(f, A[i]);    
  26.      close(f);
  27.  
  28.     end.
  29.  
  30.  
  31.  
  32.  
  33. var A: array[1..100] of integer;
  34.     N, i,j,c : integer;  
  35.     f: text;
  36.     begin
  37.       assign(f, 'data.txt');
  38.       reset(f);
  39.       i := 0;
  40.       N:=1;
  41.       while (not eof(f)) and (i < 100) do begin
  42.      i:=i+1;
  43.       N := N + 1;
  44.       readln(f, A[i]);  
  45.        end;
  46.        
  47.     for i:=1 to N do
  48.     for j:=N-1 downto  i  do
  49.     if (A[j] mod 10) < (A[j+1] mod 10) then begin
  50.     c:=A[j]; A[j]:=A[j+1]; A[j+1]:=c;
  51.     end;
  52.  
  53.  
  54.      assign(f, 'output.txt');
  55.      rewrite(f);
  56.      for i:=1 to N-1 do
  57.        writeln(f, A[i]);    
  58.      close(f);
  59.  
  60.     end.
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71. var A: array[1..100] of integer;
  72.     N, i,j,c,v : integer;  
  73.     f: text;
  74.    
  75.     function sum(var s: integer):integer;
  76.     var d:integer;
  77.     begin
  78.     while (s>0) do begin
  79.       d := d+(s mod 10);
  80.       s:=s div 10;
  81.     end;
  82.     sum:=d;
  83.     end;
  84.    
  85.    
  86.     begin
  87.       assign(f, 'data.txt');
  88.       reset(f);
  89.       i := 0;
  90.       N:=1;
  91.       while (not eof(f)) and (i < 100) do begin
  92.       i:=i+1;
  93.       N := N + 1;
  94.       readln(f, A[i]);  
  95.        end;
  96.      close(f);
  97.     for i:=1 to N-1 do begin
  98.     for j:=N-1 downto  i  do begin
  99.      if (sum(A[j]) < sum(A[j+1])) then begin
  100.        Writeln(sum(A[j]));
  101.        c := A[j];
  102.        A[j] := A[j+1];
  103.        A[j+1] := c;
  104.      end;
  105.     end;
  106.     end;
  107.  
  108.  
  109.  
  110.      assign(f, 'output.txt');
  111.      rewrite(f);
  112.      for i:=1 to N do
  113.        writeln(f, A[i]);    
  114.      close(f);
  115.  
  116.     end.

Share with your friends:

Print