Tin học

học thoi

Output là thiết bị đầu ra trong các hệ thống của máy tính, máy in,... 

(Ví dụ: Tài liệu sau photo, loa, tai nghe,...)

\(Output\) là thiết bị đầu ra của hệ thống máy tính, máy in, ...

VD: loa, tai nghe, ...

PROGRAM HOC24;
VAR i,n,k: integer;
    a: array[1..10000] of longint;
    f: text;
CONST fi='DOCAO.INP' ;
      fo='DOCAO.OUT' ;
function sum(x: longint): integer;  {Ham tinh tong cac chu so}
var t,k: integer;
begin
     t:=0;
     while (x<>0) do
           begin
                t:=t+(x mod 10);
                x:=x div 10;
           end;
     sum:=t;
end;
procedure ip;  {Nhap du lieu}
begin
     assign(f,fi);
     reset(f);
     readln(f,n);
     for i:=1 to n do
         begin
              read(f,a[i]);
         end;
     close(f);
end;
procedure out;  {Xu ly va xuat}
begin
     assign(f,fo);
     rewrite(f);
     for i:=1 to n do
         write(f,sum(a[i]),' ');
     close(f);
end;
BEGIN
     ip;
     out;
END.

Chương trình có thể như sau:

program SapXepLeChan;
const
  MAX = 100000;
type
  Mang = array[1..MAX] of Int64;
var
  a: Mang;
  n, i, j, temp: integer;
procedure SapXep(var a: Mang; n: integer);
var
  i, j, temp: integer;
begin
  // Sắp xếp số lẻ tăng dần
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (a[i] mod 2 <> 0) and (a[j] mod 2 <> 0) then
        if a[i] > a[j] then
        begin
          temp := a[i];
          a[i] := a[j];
          a[j] := temp;
        end;
  // Sắp xếp số chẵn giảm dần
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (a[i] mod 2 = 0) and (a[j] mod 2 = 0) then
        if a[i] < a[j] then
        begin
          temp := a[i];
          a[i] := a[j];
          a[j] := temp;
        end;
end;
begin
  // Nhập dữ liệu
  readln(n);
  for i := 1 to n do
    readln(a[i]);
  // Sắp xếp
  SapXep(a, n);
  // In ra màn hình
  for i := 1 to n do
    writeln(a[i]);
end.