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 ạ
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 ạ
By Arya
By 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.