viết câu lệnh nhập danh sách số nguyên cho mảng 1 chiều, xuất danh sách đó ra màn hình
2 câu trả lời
Program Baitap;
Uses crt;
Var A : array[1..10] of Integer;
i : integer;
Begin
clrscr;
Writeln ('Nhap day so');
For i:=1 to 10 do
Begin
Write('A[‘,i,’] = ');
Readln(A[i]);
End;
Writeln ('Danh sach cac so trong mang A: ');
For i:=1 to 10 do
Write(A[i]:5);
Readln;
End.
uses crt;
var a:array[1..1000]of longint;i,n:longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln
end.
