Tìm phần khai báo và câu lệnh nhập số nguyên dương âm trong dãy n số nguyên trong pascal
2 câu trả lời
uses crt;
var a:array[1..100]of longint;
n:longint;
begin
clrscr;
readln(n)
for i:=1 to n do
begin
write('nhap a[',i,'] am')
readln(a[i]);
end;
readln
end.
uses crt;
var a:array[1..100]of longint;
n:longint;
begin
clrscr;
readln(n)
for i:=1 to n do
begin
write('nhap a[',i,'] am')
readln(a[i]);
end;
readln
end.
`khoadang09`
