khai báo mảng a gồm n phần tử số nguyên (n <=100) mỗi phần tử có giá trị tuyệt đối <= 200. hãy nhập mãng và xuất mãng?
2 câu trả lời
var a:array[1..100] of longint;
n,i:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);readln;
for i:=1 to n do write(a[i],' ');
readln
end.
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do Read(A[i]);
For i:=1 to n do Write(A[i],' ');
Readln
End.
Câu hỏi trong lớp
Xem thêm
