Giải giúp mình với ạ! Viết lệnh nhập vào từ bàn phím dãy số A gồm có N số nguyên dương . GIá trị A mang vừa nhập vào tệp có tên là vidu.txt . Đọc và h

0 bình luận về “Giải giúp mình với ạ! Viết lệnh nhập vào từ bàn phím dãy số A gồm có N số nguyên dương . GIá trị A mang vừa nhập vào tệp có tên là vidu.txt . Đọc và h”

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

   n,i: integer;
   f: text;
   begin
   assign(f,’vidu.txt’);
   reset(f);
   read(f,n);
   for i:=1 to n do

   read(f,a[i]);

   writeln (‘day mang la: ‘);

   for i:=1 to n do write (a[i]:3);
   close(f);
   readln;
   end.

   Bình luận

2. uses crt;

   var f:text;

         A:array[1..10000] of integer;

         n,i:integer;

   begin

         clrscr;

         Assign(f,’vidu.txt’);   reset(f);

         readln(f,n);

         for i:=1 to n do

               begin

                     read(f,A[i]);

                     write(A[i],’ ‘);

               end;

         readln;

   end.

   Bình luận