uses crt;
var a:array[1..99]of integer;
i,n,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
write('Vi tri cac phan tu cua day A co gia tri bang ',k,' la: ');
for i:=1 to n do
if a[i]=k then write(i:4);
readln;
end.
Cho dãy số nguyên A : A1,A2,A3,....,An . Tìm vị trí của một số nguyên có giá trị bằng ktrong dãy A, k có giá trị nguyên cho trước (k khác 0)
Cho dãy A gồm N số nguyên A1, A2,..AN . Hãy tìm thuật toán cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 0
Hãy xác định input output và nêu thuật toán giải quyết các bài toán sau:
a) cho N và dãy số :a1,a2,...aN hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 8?
b) Cho dãy A gồm N số nguyên . Hãy cho biết trong dãy A có bao nhiêu số chẵn ?
c) Cho số nguyên dương N và dãy số A gồm N số nguyên a1,a2,...aN viết thuật toán tính tổng của các phần tử có giá trị chẵn trong A
d) Tính tổng : S=1+2+3+...+N (với N là số nguyên dương, N>1)
e)Tính giai thừa :P=N!=1\(\times\)2\(\times\)3\(\times\)...\(\times\)N ( với N là số nguyên dương , N\(\ge\)1)
cho dãy A gồm N sô nguyên: a1, a2,...., an. hãy cho biết có bao nhiêu số hạng trong dãy có giá trị khác 0
Chọn dãy A gồm số nguyên dương N và dãy gồm các số hạng a1,a2...aN.Hãy cho biết có bao nhiêu số hạng trong dãy có giá trị nhỏ hơn 5,nếu có hãy cho biết tổng của chúng là bao nhiêu
Cho dãy A gồm N số nguyên có giá trị a1, a2, …,an và 1 số nguyên k. Hãy đếm xem trong dãy A có bao nhiêu phần tử bằng k
cho N và dãy số nguyên a1,a2,...,aN và một số nguyên dương x. Hãy tính tổng các số hạng có giá trị
cho dãy số a gồm n phần tử a1 a2 .... an. tìm vị trí của phần tử đầu tiên trong dãy số có giá trị = 0 giúp em với ạ
