Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
9
5
program tt;
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
Write('nhap n: ');
readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,': ');
readln(a[i]);
while a[i]>200 do
begin
write('nhap lai so thu ',i,': ');
readln(a[i]);
end;
end;
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin