Tin học 11: Mọi ng giải giùm mình chương trình này đi ạ.
Nội dung Bài 14,15:
Hãy viết một chương trình ghi một dãy số dưới 30 số vào trong tệp.
Tin học 11: Mọi ng giải giùm mình chương trình này đi ạ.
Nội dung Bài 14,15:
Hãy viết một chương trình ghi một dãy số dưới 30 số vào trong tệp.
uses crt;
var f:text; i:longint; a:Array[1..1000000]of longint;
begin
clrscr;
assign(f,’output.pas’);rewrite(f);
for i:=1 to 30 do
begin
write(‘Nhap so thu ‘,i,’: ‘);readln(a[i]);
end;
for i:=1 to 30 do write(f,a[i]);
close(f);
readln;
end.
var a: array[1..30] of real;
n, i: byte;
F: text;
Begin
Write(‘n = ‘); readln(n);
Assign(f, ‘output.txt’); rewrite(f);
For i:=1 to n do
Begin
Write(‘nhap so thu ‘, i, ‘: ‘);
Readln(a[i]); write(f, a[i], ‘ ‘);
End;
Close(f);
End.