uses crt;
var n,i,dem:integer;
a,vt:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------xu-ly-----------------------}
dem:=0;
for i:=1 to n do
if a[i]=10 then
begin
inc(dem);
vt[dem]:=i;
end;
writeln('vi tri cua cac phan tu co gia tri bang 10 trong day la: ');
for i:=1 to dem do
write(vt[i]:4);
readln;
end.
cho dãy A gồm n số nguyên a1 a2 an và 1 số k tìm và đưa ra vị trí i mà ai bằng k
Cho số N nguyên dương và dãy số nguyên A gồm a1, a2,.....,an.
Hãy viết thuật toán
a) đưa ra màn hình tổng số các giá trị trong dãy
(Ví dụ: nhập n=4
Dãy A: 3 6 2 1 đưa ra màn hình tổng số bằng 12 <dạng> )
b) Đưa ra màn hình vị trí chứa giá trị lớn nhất. Nếu có 2 GTLN thì dưa ra vị trí nhỏ nhất chứa GTLN.
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 ạ
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 ạ
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 n nguyên dương và dãy A gồm N số nguyên a1,a2...an. a, đếm số lượng số lẽ trong dãy .b tính tổng các số chia hết cho 3 và 4. c đưa ra vị trí của các số chẵn hỏi out là gì?
Xây dựng thuật toán cho bài toán sau: cho 1 số nguyên dương N và dãy số nguyên A: a1,a2…aN. Hãy tính: a) Tổng các phần tử có giá trị dương: a1+a3+a5+a7 b) đếm xem trong dãy A có bao nhiêu phần tử có giá trị
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 số nguyên các dãy a có dạng a1,a2,a3,...an. Mỗi phần tử của dãy không quá 500. Tìm các phần tử chia cho 5 và tính tổng của nó
