Câu 1: Viết câu lệnh: Khai báo mãng A gồm N phần tử số (N <= 100). Mỗi phần tử đều có tuyệt đối giá trị <= 200
2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
