in phần tử có số lần xuất hiện k lần trong mảng có n phần tử.Nếu có nhiều phần tử cùng có k lần xuất hiện thì in từ nhỏ tới lớn pascal
Những câu hỏi liên quan
Viết chương trình nhập vào 1 mảng và 1 số k, tìm và in ra phần tử xuất hiện từ k lần trở lên (Pascal ).
Program hotrotinhoc;
var x,i,n,k: integer;
a: array[0..32000] of integer;
begin
write('N='); readln(n);
write('K='); readln(k);
for i:=1 to n do
begin
write('a[',i,']='); readln(x);
inc(a[x]);
end;
write('Cac phan tu xuat hien tu k lan tro len la : ');
for i:=0 to 32000 do
if a[i]>=k then write(i,' ');
readln
end.
Bài tập về kiểu mảng trong pascal:
N<= 20.
* Hãy liệt kê phần tử có số lần xuất hiện nhiều nhất trong mảng.
Program hotrotinhoc;
var x,i,max,n: integer;
a,b: array[1..20] of integer;
begin
write('N='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
inc(b[a[i]]);
end;
max:=0;
for i:=1 to n do
if b[a[i]]>max then
begin
max:=b[a[i]];
x:=a[i];
end;
write('Phan tu co so lan xuat hien nhieu nhat trong mang la :',x);
readln
end.
#include <iostream> #include <algorithm> using namespace std; int main() { int a[] = { 5,5,5,5,5,4,4,4,4,3,3,3,2,2,1 }; int n = sizeof(a)/sizeof(a[0]); sort(a,a+n); int i = 0, max = 0,index = 0; int frequency; while(i < n) { frequency = 1; while(a[i] == a[i+1]) { frequency++; i++; } if(max < frequency) { max = frequency; index = i; } i++; } cout << "Maximum frequency: " << max << endl; cout << "Element has maximum frequency factor: " << a[index] << endl; return 0; }
viết chương trình nhập vào mảng a có n phần tử là các số nguyên dương.Tìm các số xuất hiện trong mảng a và số có số lần xuất hiện nhiều nhất
VTC nhập 1 dãy A có n só tự nhiên(n<40) và 1 số k. Hãy xuất ra các phần tử có số lần xuất hiện trong dãy A từ k lần trở lên (mỗi số chỉ xuất hiện 1 lần)
program xuat_hien_k_lan;
uses crt;
var i,n,k,j:integer;
a,b: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;
write('nhap k:');readln(k);
for i:=1 to n do
begin
for j:=i to n do
if a[i]=a[j] then inc(b[i]);
end;
for i:=1 to n do
if b[i]>=k then write(a[i]:5);
readln;
end.
Đúng 1
Bình luận (0)
Bài tập về kiểu mảng trong pascal
N<= 20.
Bài 1: Tính tổng bình phương các phần từ ở vị trí lẻ
Bài 2: Hãy liệt kê phần tử có số lần xuất hiện nhiều nhất trong mảng
Bài 1:
uses crt;
var a:array[1..20]of integer;
i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------------------------------------}
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+sqr(a[i]);
writeln('tong binh phuong cac phan tu o vi tri le la: ',t);
readln;
end.
Viết chương trình nhập và xuất mảng có 100 phần tử các số nguyên1/Nhập vào 1 số nguyên k, cho biết vị trí nào trong mảng bằng với k.2/Nhập vào số nguyên h, cho biết h xuất hiện bao nhiêu lần trong mảng3/ Tổng các phần tử của dãy4/Số lượng các số hạng dương và tổng các số hạng dương5/Số lượng các số hạng âm và tổng của các số hạng âmViết chương trình nhập và xuất mảng có 100 phần tử các số nguyên
Đọc tiếp
Viết chương trình nhập và xuất mảng có 100 phần tử các số nguyên
1/Nhập vào 1 số nguyên k, cho biết vị trí nào trong mảng bằng với k.
2/Nhập vào số nguyên h, cho biết h xuất hiện bao nhiêu lần trong mảng
3/ Tổng các phần tử của dãy
4/Số lượng các số hạng dương và tổng các số hạng dương
5/Số lượng các số hạng âm và tổng của các số hạng âmViết chương trình nhập và xuất mảng có 100 phần tử các số nguyên
uses crt;
var a:array[1..100]of integer;
i,n,k,h,dem,t,dem1,dem2,t1,t2:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('A[',i,']='); readln(a[i]);
end;
n:=100;
write('Nhap k='); readln(k);
for i:=1 to n do
if a[i]=k then write(i:4);
writeln;
write('Nhap h='); readln(h);
dem:=0;
for i:=1 to n do
if a[i]=h then inc(dem);
writeln(h,' xuat hien ',dem,' lan trong mang');
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu cua day la: ',t);
dem1:=0;
t1:=0;
dem2:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
inc(dem1);
t1:=t1+a[i];
end;
if a[i]<0 then
begin
inc(dem2);
t2:=t2+a[i];
end;
end;
writeln('Co ',dem1,' so duong');
writeln('Tong cac so duong la: ',t1);
writeln('Co ',dem2,' so am');
writeln('Tong cac so am la: ',t2);
readln;
end.
Đúng 0
Bình luận (0)
Theo pascal ạ!! giúp em nha <3 cảm ơn rất nhiều ạ
1. viết chương trình con nhập và xuất một dãy (mảng)số nguyên có n phần tử
2. nhập số k. Tính trung bình cộng của các phần tử trong dãy có giá trị nhỏ hơn hay bằng k
3. xuất và đếm các phần tử là số nguyên tố có trong dãy
Câu 1:
program mangsonguyen;
var
a: array[1..100] of integer;
i, n: integer;
begin
writeln('Nhap so phan tu trong mang: ');
readln(n);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
end.
Đúng 0
Bình luận (0)
Câu 2:
program trungbinhcong;
var
a: array[1..100] of integer;
i, n, k, sum: integer;
avg: real;
begin
writeln('Nhap so phan tu trong mang: ');
readln(n);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
writeln('Nhap so k: ');
readln(k);
sum := 0;
for i := 1 to n do
begin
if a[i] <= k then
sum := sum + a[i];
end;
if sum > 0 then
begin
avg := sum / n;
writeln('Trung binh cong cac phan tu co gia tri <= ', k, ' la: ', avg:0:2);
end
else
begin
writeln('Khong co phan tu nao co gia tri <= ', k);
end;
end.
Câu 3:
program DemSoNguyenTo;
var
a: array [1..100] of integer;
i, j, n, count: integer;
laSoNguyenTo: boolean;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
write('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
count := 0;
writeln('Cac so nguyen to trong mang la: ');
for i := 1 to n do
begin
laSoNguyenTo := true;
for j := 2 to (a[i] div 2) do
begin
if (a[i] mod j = 0) then
begin
laSoNguyenTo := false;
break;
end;
end;
if laSoNguyenTo and (a[i] > 1) then
begin
writeln(a[i]);
count := count + 1;
end;
end;
writeln('Tong so cac so nguyen to la: ', count);
readln;
end.
Đúng 0
Bình luận (0)
nhập 1 mảng số nguyên gồm n phần tử (5<n<15)
a)Xuất xác phần tử trong mảng ra màn hình.
b)tìm kiếm phần tử có giá trị k trong mảng (k được nhập từ bàn phím). Nếu có thì thông báo: Trong mảng có phần tử có giá trị K (nếu không thì ngược lại)
uses crt;
var i,n,k:integer;
a:array[1..100]of integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then kt:=true;
if (kt=true) then write('Co k trong mang')
else writeln('Khong co k trong mang');
readln;
end.
Đúng 0
Bình luận (0)
Cho mảng a gồm n phần tử. Viết chương trình đưa ra số lần k xuất hiện trong mảng k được nhập vào bàn phím