Lập trình đơn giản

Nguyễn Trần Phát

Viết chương trình nhập vào n số nguyên dương. Ghi ra số 2004 nếu tồn tại số 2004 trong dãy số, ghi ra -1 nếu không tồn tại số 2004 trong dãy số.

Luân Đào
4 tháng 9 2020 lúc 9:34

var m,n,i: integer;

a:array[1..10000] of integer;

begin

write('Nhap so n = '); readln(n);

for i:=1 to n do

begin

write('a[',i,'] = '); readln(a[i]);

end;

for i:=1 to n do

if a[i] = 2004 then m:=m+1;

if m>=1 then write(2004) else write(-1);

end.

Bình luận (0)
Minh Lệ
4 tháng 9 2020 lúc 9:27

Program HOC24;

var n,i,d: integer;

a: array[1..32000] of integer;

begin

write('n = '); readln(n);

d:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,' : ');

readln(a[i]);

if a[i]=2004 then d:=d+1;

end;

if d<>0 then write(2004) else write(-1);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Hưng Quốc
Xem chi tiết
Quỳnh
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Nguyễn Linh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Jeri James
Xem chi tiết
Quỳnh Như
Xem chi tiết
09. Trương Gia Hân
Xem chi tiết