Đọc vào dãy số nguyên gồm n số (n ≤100). Ghi dãy số vào tập BAITAP.INP

0 bình luận về “Đọc vào dãy số nguyên gồm n số (n ≤100). Ghi dãy số vào tập BAITAP.INP”

1. var n, i: byte;

         a: integer;

         f: text;

   Begin

       Assign(f, ‘baitap.inp’); rewrite(f);

       Write(‘n = ‘); readln(n);

       For i:=1 to n do

           Begin

               Write(‘a[‘, i, ‘] = ‘); readln(a);

               Write(f, a, ‘ ‘);

           End;

       Close(f);

   End.

   Bình luận