K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

5 tháng 5 2023

- Mở Windows Explorer (hoặc File Explorer).

- Mở thư mục lưu bài.

- Chọn bài cần xóa.

- Nhấn phím Delete.

8 tháng 10 2021

Em tham khảo tại đây:

https://hoidap247.com/cau-hoi/2226400

8 tháng 10 2021

Để xóa file đã lưu trong pascal ta nhấn ctrl+delete: xoá đối tượng đã chọn

17 tháng 5 2021

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

17 tháng 5 2021

mình làm rồi mà không được bạn

13 tháng 4 2021

Đề không cho biết là dãy số được nhập từ bàn phím, có bao nhiêu phần tử hay giới hạn của dãy số... nên không thể dùng pascal được nhé.

Có thể là làm trên excel. Bạn dùng hàm max nhé:

=max(giá trị 1, giá trị 2,...)

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

19 tháng 12 2021

Có thể là bị trùng tên

9 tháng 7 2023
program Bai_toan; Uses Crt; var a: integer; begin   Clrscr; writeln('Nhập số nguyên a:'); readln(a); writeln('Số lớn gấp đôi số a là:', a * 2); end.
9 tháng 7 2023

sao ko xuống dòng đc vậy

4 tháng 8 2017

• Bước 1: Chọn hình ảnh muốn xoá trong word

• Bước 2: Nhấn phím delete để xoá ảnh

8 tháng 6 2020

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.