Cho dãy A gồm n số nguyên dương và 1 số t nguyên dương bất kì được nhập từ bàn phím. Lập chương trình tìm t trong dãy A. Nếu tìm thấy thì đưa ra vị trí nếu không tìm thấy thì thông báo không có t trong dãy A.
Cho dãy A gồm n số nguyên dương và 1 số t nguyên dương bất kì được nhập từ bàn phím. Lập chương trình tìm t trong dãy A. Nếu tìm thấy thì đưa ra vị trí nếu không tìm thấy thì thông báo không có t trong dãy A.
Propram baitap;
Uses crt;
Var i,n,t, vt: integer;
a: array[1..100] of integer;
begin
clrscr;
write(‘Nhap so phan tu n: ‘);
readln(n);
for i:=1 to n do
begin
write(‘a[‘ ,i, ‘]=’);
readln(a[i]);
while a[i] <= 0 do
begin
write(‘ Moi nhap lai a[‘ ,i, ‘]=’);
readln(a[i]);
end;
end;
write(‘ Nhap t: ‘); readln(t);
while t <= 0 do
begin
write(‘ Moi nhap lai t: ‘); readln(t);
end;
vt:=0;
for i:=1 to n do if a[i]=t then
begin
vt:=i;
writeln(vt);
end;
if vt=0 then writeln(‘ khong co gia tri t trong mang ‘);
readln;
end.
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,d,t: longint;
Begin
Clrscr;
Write(‘Nhap n, t: ‘); Readln(n, t);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
End;
d:=0;
For i:=1 to n do
Begin
If A[i]=t then
Begin
Write(i,’ ‘);
inc(d);
End;
End;
If d=0 then Write(‘Khong thay’);
Readln
End.