uses crt;

const fi='output.txt';

var f1:text;

a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

assign(f1,fi); rewrite(f1);

for i:=1 to n do 

 if i mod 2=1 then write(f1,a[i]:4);

writeln(f1);

for i:=1 to n do 

if a[i] mod 2<>0 then write(f1,a[i]:4);

close(f1);

readln;

end.

uses crt;

const fo='output.txt';

var f1:text;

st:string;

d,i:integer;

begin

clrscr;

readln(st);

assign(f1,fi); rewrite(f1);

d:=length(st);

for i:=d downto 1 do 

  write(f1,st[i]);

close(f1);

readln;

end.

Câu sau đúng:

c) Trong tất cả các hệ CSDL hễ có sự cố không truy cập được một máy chủ CSDL thì toàn bộ hệ thống CSDI đó ngừng hoạt động.

d) Một hệ CSDL phân tán đắt hơn so với một hệ CSDL, tập trung vì nó phức tạp hơn nhiều.

Lưu dữ liệu dưới dạng 1 phần mềm hệ thống quản trị mà ai cũng có thể dễ dàng khai thác.

Cần lưu để cập nhật đầy đủ và chi tiết nhất.

uses crt;

const fi='kiemtra.txt';

var f1:text;

a:array[1..100]of integer;

min,n,i:integer;

{----------------chuong-trinh-con-------------------}

function nn(x,y:integer):integer;

begin

if x<y then nn:=x

else nn:=y;

end;

{-----------------chuong-trinh-chinh-----------------}

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=nn(a[1],a[2]);

for i:=3 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Mình xin sửa lại một chút:

uses crt;

const fi='kiemtra.txt';

var f1:text;

a:array[1..100]of integer;

min,n,i:integer;

{----------------chuong-trinh-con-------------------}

function nn(x,y:integer):integer;

begin

if x<y then nn:=x

else nn:=y;

end;

{-----------------chuong-trinh-chinh-----------------}

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

min:=nn(a[1],a[2]);

for i:=3 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Program hotrotinhoc_hoc24;

const fi='D:\BT3.txt';

var f: text;

i,n,d: integer;

a: array[1..32000] of integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do

read(f,a[i]);

d:=0;

for i:=1 to n do if a[i] mod 2=0 then d:=d+1;

end;

begin

write(d);

readln

end.

uses crt;

const fi='bt3.txt'';

var f1:text;

n,i,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

assign(f1,fi); reset(f1);

n:=0;

while eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(dem);

writeln('So so chan trong day la: ',dem);

close(f1);

readln;

end.

const fi='dulieu.txt';

fo='tong.doc';

var f1,f2:text;

n,i,s:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln(f2,s);

close(f1);

close(f2);

end.

Program HOC24;

var n,i: integer;

a: array[1..32000] of integer;

procedure out;

begin

assign(f,'KQ.txt');

rewrite(f);

for i:=1 to n do write(f,a[i],' ');

close(f);

end;

begin

readln(n);

for i:=1 to n do read(a[i]);

out;

readln

end.

Việc lưu trữ bảng điểm của lớp học là rất cần thiết. Bảng điểm của lớp học là một tài liệu quan trọng để giáo viên và nhà trường có thể đánh giá kết quả học tập của học sinh trong môn học đó.