Bạn chọn File\(\rightarrow\)Change dir...

Sau đó sẽ xuất hiện bảng Change Directory

Chọn Drives sau đó chọn ổ đĩa D.

chọn file--->chọn save (hoặc save as, hoặc nhấn F2)-->gõ vào ô save file as: D:\ten--->nhấn enter hoặc ok

chúc bạn học tố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 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.

Chọn B

Thời gian để thực hiện một chương trình ứng dụng không ảnh hưởng bởi:

A. Dung lượng lưu trữ của ổ đĩa cứng

B. Tốc độ CPU

C. Tốc độ truy xuất ổ đĩa cứng

D. Kích thước RAM

Hiệu năng hoạt động của máy tính không bị ảnh hưởng bởi:

A. Số lượng phần mềm ứng dụng đang được mở trên máy tính

B. Độ phức tạp của phần mềm ứng dụng đang được mở

C. Tất cả đều sai

D. Tên của phần mềm ứng dụng

Mình có bị nhưng có cách giải quyết đấy !

Bạn uninstall bản free pascal đấy đi rồi tải bản khác hoặc bạn có thể update cũng được

Bạn nên tải lại phần mềm, hoặc thử cách khác: bấm Alt+R+Enter để thử xem

uses crt;

const fi='bai1.inp'

var a,b:integer;

f:text;

begin

clrscr;

assign(f,fi); rewrite(f);

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

writeln(f,'a=',a);

writeln(f,'b=',b);

writeln(f,a,'+',b,'=',a+b);

close(f);

end.

Tham khảo:

- Tạo thư mục HocTap:

Mở ổ D: rồi chọn dải lệnh Home, chọn lệnh New Folder, nhập tên HocTap rồi nhấn Enter.

- Lưu tệp trình chiếu vào thư mục HocTap theo các bước:

Bước 1: Nháy chuột chọn Save trên bảng chọn File.

Bước 2: Nháy chuột chọn Browse.

Bước 3: Nháy chuột chọn ổ D: và chọn thư mục Hoc tap để lưu tệp.

Bước 4: Đặt tên cho tệp trình chiếu.

Bước 5: Chọn Save.

a) Ta nhấn nút gần ổ đĩa CD để mở ra, nhấn thêm lần nữa để đóng vào

b) Quán sát đĩa CD:

- Thứ tự từ trái sang phải lần lượt là mặt trên và mặt dưới của đĩa CD.

- Ta đặt đĩa CD vào ổ như hình, để mặt trên hướng lên trên, mặt dưới tiếp xúc với ổ đĩa.

c) Thao tác để đưa đĩa CD vào ổ đĩa.

• Nhấn nút để mở ổ đĩa.

• Đặt đĩa vào ổ đĩa khi ổ mở ra.

• Nhấn nút để đóng ổ đĩa

- Khi ổ đĩa mở ra hoặc đóng vào, đèn sẽ sáng nhấp nháy.