1, Cho dãy A gồm N số nguyên a1,a2...aN. Hãy cho biết trong dãy có bao nhiêu số chẵn?
2, Cho N và dãy a1,a2...aN là dãy các số nguyên. Hãy cho biết trong dãy có bao nhiêu số âm
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)
d:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+i;
cout<<s;
return 0;
}
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 bài toán “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ị âm?”. Biểu diễn thuật toán bằng sơ đồ khối
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
#include <bits/stdc++.h>
using namespace std;
long long i,n,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x!=0) dem++;
}
cout<<dem;
return 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
#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==0) dem++;
}
cout<<dem;
return 0;
}
Cho dãy A gồm N số nguyên a1,a2 ,…aN và số nguyên dương k. Hãy cho biết trong dãy A có bao nhiêu số là bội của k?
Hãy xác định bài toán và mô tả thuật toán giải các bài toán
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
Cho dãy 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ị bằng 0.
#include <bits/stdc++.h>
using namespace std;
long long i,n,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cout<<x;
if (x==0) dem++;
}
cout<<dem;
return 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
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem;
int main()
{
cin>>n;
t=0;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x<5)
{
t=t+x;
dem++;
}
}
cout<<t<<" "<<dem;
return 0;
}
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.