nhập vào 1 dãy và đếm xem trong dãy có bao nhiêu giá trị giống với x
Những câu hỏi liên quan
Nhập và số nguyên dương x hãy đếm xem trong dãy a có bao nhiêu phần tử có giá trị bằng x. In ra số đó pascal
bài này khó vá làm ơn chỉ tớ với
program DemSoLanXuatHien;
var
a: array[1..100] of Integer; // khai báo mảng a với 100 ptu
n, x, i, count: Integer;
begin
readln(n);
for i := 1 to n do
readln(a[i]);
readln(x);
count := 0;
for i := 1 to n do
if a[i] = x then
count := count + 1;
writeln(count);
end.
Đúng 2
Bình luận (1)
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
viết chương trình nhập vào mảng a với dãy các số nguyên
a.tính tổng dãy số vừa nhập
b.nhập vào 1 số nguyên x bất kì, đếm xem x xuất hiện bao nhiêu lần trong mảng a.
Nhập vào dãy số nguyên gồm n phần tử,đếm xem trong dãy có bao nhiêu số chẵn???
uses crt;
var a:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So phan tu chan la: ',dem);
readln;
end.
Đúng 0
Bình luận (0)
HÃy viết CT tính TBC của các phần tử trong dãy số và đếm xem có bao nhiêu phần tử ở vị trí chẵn ( với độ dài của dãy số được nhập vào từ bàn phím )
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<fixed<<setprecision(2)<<(t*1.0)/(n*1.0)<<endl;
dem=0;
for (i=1; i<=n; i++)
if (i%2==0) dem++;
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Bt1: viết chương trình nhập vào 1 dãy số nguyên có N phần tử(N<=150). Đếm xem có bao nhiêu phần tử là bội của 3 và 5. Tính tổng các phần tử đó.
Bt2: viết chương trình nhập vào 1 dãy số nguyên có N phần tử (N<=150) và một số nguyên K tùy ý. Đếm xem có bao nhiêu phần tử bằng với K. In ra chỉ số các phần tử đó.
Giúp mik 2 bài này trong tối nay vs ạ Tks.
Bài 1:
Program HOC24;
var i,n,d : byte;
t: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Co ',d,' phan tu la boi cua 3 va 5');
write('Tong la: ',t);
readln
end.
Đúng 2
Bình luận (0)
Bài 2:
Program HOC24;
var i,n,k : byte;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Nhap k: '); readln(k);
for i:=1 to n do if a[i]=k then d:=d+1;
writeln('Co ',d,' phan tu bang ',k);
Write('Cac chi so do la: ');
for i:=1 to n do if a[i]=k then write(i,' ');
readln
end.
Đúng 2
Bình luận (1)
viết chương trình nhập vào mảng a với dãy các số nguyên
a.tính tổng dãy số vừa nhập
b.nhập vào 1 số nguyên x bất kì, đếm xem x xuất hiện bao nhiêu lần trong mảng a.
Mọi người giúp mình giải xin cảm ơn
program tinh_tong_va_dem_so_x;
const
MAX = 100;
var
a: array[1..MAX] of integer;
n, tong, x, dem, i: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
end;
tong := 0;
for i := 1 to n do
begin
tong := tong + a[i];
end;
writeln('Tong cac phan tu trong mang la: ', tong);
write('Nhap gia tri x: ');
readln(x);
dem := 0;
for i := 1 to n do
begin
if a[i] = x then
begin
dem := dem + 1;
end;
writeln('So lan xuat hien cua ', x, ' trong mang la: ', dem);
readln;
end.
Đúng 0
Bình luận (0)
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)
Hãy viết CT tính TBC của các phần tử trong dãy số và đếm xem có bao nhiêu phần tử ở vị trí chẵn ( với độ dài của dãy số được nhập vào từ bàn phím ) giúp mình với ạ :3
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(tb/n:4:2);
dem:=0;
for i:=1 to n do
if i mod 2=0 then dem:=dem+1;
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào 1 mảng số nguyên sau đó đếm xem có bao nhiêu số lớn hơn 5 trong dãy số đã nhập?
Var a:array[1..200] of integer;
i,n,dem:integer;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
dem:=0;
For i:=1 to n do
If a[i]>5 then dem:=dem+1;
Write('So phan tu lon hon 5 la ',dem);
Readln;
End.
Đúng 0
Bình luận (0)