Question

viết chương trình nhập từ bàn phím 15 số thực ghi các số đó vào tệp KQ.TXT cứ 5 số trên một dòng các số cách nhau bởi một dấu cách?

Answer 1

uses crt;

const fi='kq.txt'

var a:array[1..15]of real;

i,n:integer;

f1:text;

begin

clrscr;

n:=15;

for i:=1 to n do readln(a[i]);

assign(f1,fi); rewrite(f1);

for i:=1 to n do 

  begin

 if (i mod 5=0) then writeln(f1)

else write(f1,a[i],' ');

end;

close(f1);

readln;

end.