a)Viết chương trình khai báo mảng một chiều A chứa tối đa 10 ký tự (phần tử kiểu thực) b) viết thông báo nhập dữ liệu cho các dữ liệu trên và xuất ra màn hình các phần tử trên #Giúp em vs ạ e sẽ vote đầy đủ , em đang rất cần ạ
2 câu trả lời
uses crt;
var A : array[1 .. 10] of real;
i, n : integer;
begin
clrscr;
write('Nhap so luong phan tu : '); readln(n);
write('Nhap ', n ,' so thuc : ');
for i := 1 to n do read(a[i]);
write('Mang A : ');
for i := 1 to n do write(a[i] : 2 : 1,' ');
readln
end.
a và b làm chung một chương trình nha em :D
uses crt;
var A:array[1..10] of real;
i,n:integer;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
for i:=1 to n do writeln(A[i]:4:2);
readln
end.
