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 ạ
2 câu trả lờ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.
uses crt;
var f:text; n,i:longint; a:array[1..100000]of longint;
begin
clrscr;
assign(f,'output.pas');rewrite(f);
write('Nhap n: (n<=100) ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
write(f,a[i],' ');
end;
close(f);
readln
end.
