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

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

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

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

Đề 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.

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

Program Bai_toan;

Uses crt;

Var

      a:integer;

Begin

      Clrscr;

      Write('Nhap so nguyen a');Readln(a);

      Write('So lon gap do a la',a*2);

   Readln

End

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

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

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.