Viết chương trình nhập vào một mảng số nguyên n nhỏ <= 100 mạnh vào tệp Baitap.int MN giúp em với ạ 18/07/2021 Bởi Arya Viết chương trình nhập vào một mảng số nguyên n nhỏ <= 100 mạnh vào tệp Baitap.int MN giúp em với ạ
var f: text; n, i: byte; a: integer; Begin Assign(f, ‘baitap.int’); rewrite(f); Write(‘nhap n (n<=100): ‘); readln(n); For i:=1 to n do Begin Write(‘nhap so thu ‘, i, ‘: ‘); readln(a); Write(f, a, ‘ ‘); End; Close(f); End. Bình luận
var f: text;
n, i: byte;
a: integer;
Begin
Assign(f, ‘baitap.int’); rewrite(f);
Write(‘nhap n (n<=100): ‘); readln(n);
For i:=1 to n do
Begin
Write(‘nhap so thu ‘, i, ‘: ‘);
readln(a);
Write(f, a, ‘ ‘);
End;
Close(f);
End.