1,cho dãy số nguyên a1....an , phân tử k
a,đếm xem có bao nhiêu pt giống k
b,đếm xem có bao nhiêu phân tử chia hết cho k
2, cho dãy số nguyên a1....an,
a,đếm xem có bao số chẵn , số lẽ
b,có bao nhiêu số nguyên tố
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
program Tin_hoc;
Uses crt;
var i,n,k,dem:integer;
a;array[1..10000] of integer;
Begin
clrscr;
write('Nhap n: ');readln(n);
writeln('Nhap ',n,' pha tu cua day A:');
for i:= 1 to n do readln(a[i]);
dem:=0;
write('Nhap k: ');readln(k);
for i:= 1 to n do if a[i] = k then inc(dem);
writeln('Day A co ',dem,' ki tu ',k,);
readln;
end.
Xây dựng thuật toán của bài toán sau: Cho dãy A gồm N số nguyên a1,a2,...,aN và 1 số nguyên k cho trước. Đếm xem có bao nhiêu phần tử trong dãy A chia hết cho số k. Mô phỏng thuật toán với 2 bộ input.
uses crt;
var a:array[1..100]of integer;
i,n,dem,dem1,dem2,t:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]>10 then inc(dem);
writeln('So phan tu lon hon 10 la: ',dem);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln('So luong so chan la: ',dem1);
writeln('So luong so le la: ',dem2);
t:=0;
s:=1;
for i:=1 to n do
begin
if (i mod 2=0) and (a[i] mod 2<>1) then t:=t+a[i];
if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];
end;
writeln('Tong cac so o vi tri chan co gia tri le la: ',t);
writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);
writeln('Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
writeln('Cac so chan va lon hon 10 la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);
readln;
end.
Cho dãy số nguyên a1,a2.....an đếm xem trong dãy số có bao nhiêu số chẵn
Tham Khảo:
Thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: t←0; dem←0; i←1
-Bước 3: nếu a[i] mod 2=0 thì t←t+a[i] và dem←dem+1;
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất dem và t
-Bước 7: Kết thúc
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ị
a: #incldue <bits/stdc++.h>
using namespace std;
long long i,n,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) t=t+x;
}
cout<<t;
return 0;
}
Giúp mình với ạ
Nhập vào dãy số nguyên có n phần tử (n<=52). Nhập vào một số nguyên k, đếm xem trong dãy có bao nhiêu số chia hết cho k. Kiểm tra lượng số chia hết cho k là chẵn hay lẻ
var n,i,k,d: integer;
a:array[1..52] of integer;
begin
write('Nhap so N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
write('Nhap so k: '); readln(k);
d:=0;
for i:=1 to n do
if a[i] mod k = 0 then d:=d+1;
writeln('Co ',d,' so chia het cho ',k,' trong day');
if d mod 2 = 0 then writeln('Chan') else writeln('Le');
end.
uses crt;
var a:array[1..52]of integer;
i,n,k,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=52);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i] mod k=0 then inc(dem);
writeln('Trong day co ',dem,' so chia het cho ',k);
if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')
else writeln('So luong so chia het cho ',k,' la so le');
readln;
end.
Đếm xem trong dãy số nguyên a1,....aN có bao nhiêu số chẵn
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
Cho dãy số A a1,a2,.... aN và khóa k đếm xem trong dãy có bao nhiêu phần tử bằng k .
Xác định input,output , nêu ý tưởng , thuật toán , mô phỏng thuật toán .
Tham khảo
Input: N, dãy số nguyên a1,a2,...,aN và k
Output: Số phần tử là bội của k
Thuật toán liệt kê:
Bước 1: Nhập N, dãy số nguyên a1,a2,...,aN và k
Bước 2: d←0; i←1;
Bước 3: Nếu i>N thì in ra d và kết thúc
Bước 4: Nếu ai chia hết cho k thì d←d+1;
Bước 5: i←i+1; quay lại bước 3
Viết thuật toán để giải bài toán Cho dãy số A gồm N số nguyên a1 a2 a3 ...aN đếm xem trong dãy có bao nhiêu số vừa chia hết cho 3 vừa chia hết cho 5
a, Xác định bài toán:
+Input: Dãy số a1,….,an và (0,5đ)
+Output: Số lượng số hạng trong dãy số a1,….,an có giá trị bằng 9 (0,5đ)
b, Thuật toán:
Bước 1.Nhập N và dãy số a1,….,an;
Bước 2. i ←1; n ← 0; (0,25đ)
Bước 3. Nếu aithì n ←n+1;
Bước 4. i → i+1 (0,25đ)
Bước 5. Nếu i > N thì thông báo số lượng số hạng bằng k trong dãy đã cho là n và kết thúc; (0,25đ)
Bước 6. Quay lại bước 3.
Bước 1: Nhập n và nhập dãy số
Bước 2: dem←0; i←1;
Bước 3: Nếu a[i] mod 3=0 và a[i] mod 5=0 thì dem←dem+1;
i←i+1;
Bước 4: Nếu i<=n thì quay lại bước 3
Bước 5: xuất dem
Bước 6: Kết thúc