viết chương trình đếm số dương trong dãy n số nguyên
Những câu hỏi liên quan
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên , A1, A2,...,An
a) Đếm số hợp số chẵn và số lẻ
b) Tính tổng các số chẵn
c) đếm số lượng nguyên tố trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,tc,tl,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln('Tong cac so chan la: ',tc);
writeln('Tong cac so le la: ',tl);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..1000]of integer;
i,n,dem1,dem2,t1,dem3,j,kt:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
dem1:=0;
dem2:=0;
t1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem1:=dem1+1;
t1:=t1+a[i];
end;
else dem2:=dem2+1;
end;
dem3:=0;
for i:=1 to n do
if (a[i]>1) then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then dem3:=dem3+1;
end;
writeln(dem1, ' ',dem2);
writeln(t1);
writeln(dem3);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập số nguyên dương n. Dãy số nguyên A1,A2,....An,.... Sau đó đếm số phần tử dương trong dãy số đó.
Mọi người giúp em với ạ, mai em phải nộp bài rồi:((
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) dem++;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (1)
Viết chương trình nhập số nguyên dương n. Dãy số nguyên A1,A2,....An,.... Sau đó đếm số phần tử dương trong dãy số đó. Mọi người giúp em với ạ, tí nữa em phải nộp bài rồi:((
Bài 1: Viết chương trình nhập vào số nguyên dương n (0<n<100) và khởi tạo dãy gồm n số nguyên Ai (-32000<Ai<32000). Đếm và in ra màn hình các số dương có 3 chữ số?Bài 2: Viết chương trình nhập vào một xâu kí tự, đếm xem trong xâu có bao nhiêu kí tự chữ số 1?
Xem chi tiết
viết chương trình nhập dãy số nguyên (n <= 100) đếm số lượng các số âm trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n,k);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]<0 then inc(dem);
write(dem);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào số nguyên dương n, n <= 100 và dãy a gồm n số nguyên . Đếm xem có bao nhiêu phần tử có giá trị bằng số nguyên k
Cho N và dãy số nguyên dương a1,a2,…,an. Hãy lập chương trình :
a/ Nhập và in dãy số nguyên dương a1,a2,…,an ra màn hình.
b/ Đếm xem trong dãy số đó có bao nhiêu số 10
c/ Đếm xem trong dãy có bao nhiêu số chẵn , bao nhiêu số lẻ
d/ Tính tổng các số ở vị trí chẵn có giá trị lẻ và tích các số ở vị trí lẻ có giá trị chẵn của dãy
e/ In ra màn hình các số lẻ
f/ In ra màn hình các số chẵn và lớn hơn 10
Đọc tiếp
Cho N và dãy số nguyên dương a1,a2,…,an. Hãy lập chương trình :
a/ Nhập và in dãy số nguyên dương a1,a2,…,an ra màn hình.
b/ Đếm xem trong dãy số đó có bao nhiêu số >10
c/ Đếm xem trong dãy có bao nhiêu số chẵn , bao nhiêu số lẻ
d/ Tính tổng các số ở vị trí chẵn có giá trị lẻ và tích các số ở vị trí lẻ có giá trị chẵn của dãy
e/ In ra màn hình các số lẻ
f/ In ra màn hình các số chẵn và lớn hơn 10
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.
Đúng 2
Bình luận (1)
Viết chương trình nhập vào dãy số nguyên n phần tử, đếm có bao nhiêu số chẵn, số lẻ trong dãy
program dem;
var
n, i, chan, le: integer;
a: array[1..1000] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
end;
chan := 0;
le := 0;
for i := 1 to n do
begin
if (a[i] mod 2 = 0) then
chan := chan + 1
else
le := le + 1;
end;
writeln('So phan tu chan trong day la: ', chan);
writeln('So phan tu le trong day la: ', le);
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vao từ bàn phím số nguyên dương M,N(N<=100) và dãy số A1,A2,... Đếm xem có bn phần tử trong mảng= số M và hiển thị kết quả trên màn hình
uses crt;
var a:array[1..100]of integer;
m,n,dem,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap m='); readln(m);
dem:=0;
for i:=1 to n do
if a[i]=m then inc(dem);
writeln('So phan tu bang ',m,' la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)