Viết chương trình nhập vào một dãy n số nguyên khác nhau từ bàn phím. Tìm min, max của dãy và số lần xuất hiện của min, max đó.
Viết chương trình nhập một dãy gồm N (0<N≤1000)số nguyên a1,a2,a3,...aN và một số nguyên B . Đếm số lần xuất hiện của số nguyên N trong dãy số đã nhập
Dữ liệu vào:Nhập từ bàn phím
-Dòng đầu đọc số nguyên N
-Dòng thứ hai là các số của dãy cách nhau một khoảng trắng theo thứ tự a1,a2,a3,..aN
-Dòng thứ ba nhập số nguyên B
-kết quả ra:Xuất ra màn hình:Tổng số lần xuất hiện của B
Ví dụ :
Dữ liệu vào:9,2,4,3,1,5,4,1,1,9,1
Kết quả:3
a.Đếm phần tử xuất hiện nhiều nhất và số lần xuất hiện của nó trong mảng ?
b.Xếp lại dãy đó theo thứ tự tăng dần.Chèn số nguyên X vào dãy sao cho dãy vẫn giữ được thứ tự tăng dần(không được sắp xếp lại )
c.Tìm số nguyên Y và xoá số Y trong mảng trên (giúp em với ạ)
a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhập
b) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã nhập
a) var a:array[1..1000] of integer;
i,k:integer;
p:longint;
begin
write('k = ');readln(k);
p:=1;
for i:=1 to k do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i]<30 then p:=p*a[i];
end;
write('Tich la ',p);
readln
end.
b)
var a:array[1..1000] of integer;
i,k:integer;
s:longint;
begin
write('k = ');readln(k);
for i:=1 to k do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i]<100 then s:=s+a[i];
end;
write('Tong la ',s);
readln
end.
Viết chương trình nhập vào xâu S.a, Xoá hết kí tự là chữ trong xâu.b, đếm xem xâu có bao nhiêu nguyên âm. c, đếm số lần xuất hiện của kí tự k đc nhập bào từ bàn phím
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);
writeln('Xau sau khi xoa het ki tu chu la: ',s);
readln;
end.
uses crt;
var n,i,k,dem:integer;
a:array[1..100]of 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 trong day so la: ',dem);
write('Nhap so k='); readln(k);
kt:=0;
for i:=1 to n do
if a[i]=k then kt:=i;
if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)
else writeln('Trong day co phan tu bang ',k);
readln;
end.
Cho 1 số nguyên n được nhập từ bàn phím và dãy số nguyên a1,a2,...,ăn. Hãy viết chương trình đếm xem trong dãy đó có bao nhiêu số chẵn
#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%2==0) dem++;
}
cout<<dem;
return 0;
}
viết chương trình nhập dãy số n ( n nhập từ bàn phím ). Xuất ra màn hình số cuất hiện nhiều nhất và số lần xuất hiện của nó trong dãy số
uses crt;
var a,b:array[1..100]of integer;
i,n,max,dem,j,kt,dem1,sct:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=1;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[j]=a[i] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
max:=0;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if b[i]=a[j] then inc(dem1);
if max<dem1 then
begin
max:=dem1;
sct:=b[i];
end;
end;
writeln('So xuat hien nhieu nhat la: ',sct);
writeln('So lan xuat hien la: ',max);
readln;
end.
Tư tưởng: Sort mảng a tăng dần, khi đó các phần tử giống nhau sẽ nằm cạnh nhau, rồi ta duyệt từ đầu đến cuối và đêm.
Code (C++): https://gist.github.com/minotour4869/7421de6e4c0ba475babc5c52c3a13728
Chúc bạn học tốt nha😉.
Viết chương trình nhập vào từ 1 bàn phím 1 dãy n số nguyên( n nhập từ bàn phím). Sau đó hiển thị ra màn hình các số chẵn của dãy số vừa nhập.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..1000000] of longint;
n,i:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.
Nhập vào dãy số a1..an. Với N là 1 số nguyên dương được nhập từ bàn phím. Nhập thêm 1 số M bất kì. Đếm số lần xuất hiện của số M trong dãy số.
INPUT | OUTPUT |
5 12 4 6 9 4 4 | SO 4 XUAT HIEN 2 LAN |