1. Bài tập 1: Viết chương thực hiện các công việc sau: a. Nhập số nguyên dương n (n<=100) và mảng A gồm n số nguyên. b. Hãy ghi các phần tử của mảng A

0 bình luận về “1. Bài tập 1: Viết chương thực hiện các công việc sau: a. Nhập số nguyên dương n (n<=100) và mảng A gồm n số nguyên. b. Hãy ghi các phần tử của mảng A”

1. uses crt;
   var f:text; i,n:longint; a:array[1..100]of longint;
   begin
   clrscr;
      write(‘Nhap n (n<=100): ‘);readln(n);
      for i:=1 to n do 
         begin 
            write(‘a[‘,i,’]= ‘);readln(a[i]); 
         end;
      assign(f,’MANG.TXT‘);rewrite(f);
         for i:=1 to n do 
            writeln(f,a[i]);
      close(f); 
   readln
   end.   

   Bình luận

2. uses crt;
   var i,n: integer;
   f: text;
   a: array [1..100] of integer;
   begin
   clrscr;
   write(‘So phan tu: ‘); readln(n);
   for I:=1 to n do begin
    write(‘a[‘,i,’]=’); readln(a[i]); end;
   assign(f,’mang.txt’);
   rewrite(f);
   for I:=1 to n do write(f,a[i],’ ‘);
    close(f);
   readln;
   end.

   đã test mong đc vote!

   tệp sau khi hoàn thành thường đc lưu ở: C:\FPC\3.2.0\bin\i386-win32\

   và tìm đến file mang.txt nhé!

   Bình luận