Tin học 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. 18/07/2021 By Abigail 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;beginclrscr; 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. Trả lời
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. Trả lời