Nhập vào mảng B gồm N số thực (N<100), sau đó đưa ra màn hình sao cho các phần tử nằm trên cùng một dòng và cách nhau một vài vị trí
1 câu trả lời
uses crt;
var n, i: longint;
b: array[1..100] of real;
begin
clrscr;
readln(n);
for i:=1 to n do read(b[i]);
for i:=1 to n do write(b[i]:0:2, ' ');
readln; readln;
end.
