cho dãy số nguyên a và b, sao cho trung bình cộng của i phần tử đầu tiên trong dãy a đúng bằng b
giupws em với ạ em đang cần gấp
Viết chương trình cho phép nhập dãy n số nguyên, em hãy: a/ Cho biết trong dãy số vừa nhập có bao nhiêu số chẳn? b/ Tính trung bình cộng các phần tử chẳn? c/ In các phần tử trong dãy ra màn hình theo chiều dọc? Giúp với ạ
Program HOC24;
var d,i,n: integer;
t: real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
d:=0; t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
d:=d+1;
t:=t+a[i];
end;
t:=t/d;
writeln('Co ',d,' so chan trong mang');
writeln('Trung binh cong cac phan tu chan la: ',t:2:5);
write('Cac phan tu trong day theo chieu doc: ');
for i:=1 to n do writeln(a[i]);
readln
end.
cho dãy số a gồm n phần tử a1 a2 .... an. tìm vị trí của phần tử đầu tiên trong dãy số có giá trị = 0 giúp em với ạ
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]==0)
{cout<<i; break; }
return 0;
}
cho dãy số a gồm n phần tử a1 a2 .... an. tìm vị trí của phần tử đầu tiên trong dãy số có giá trị = 0 giúp em với ạ
Tham khảo
B1: Nhập N, dãy số nguyên A, số nguyên k
B2: dem←0; i←1;
B3: Nếu i>N thì chuyển đến B6.
B4: Nếu A[i]>k thì dem←dem+1
B5: i←i+1; Quay lại B3.
B6: In dem ra màn hình và kết thúc.
Nói nhanh: Từ dãy số nguyên A ban đầu gồm n phần tử: a1,a2,...,an (ai ). An và Bình thay phiên nhau nói nhanh các số sao cho số thứ nhất là phần tử đầu tiên của dãy A, số thứ hai là tổng của hai phần tử đầu tiên của dãy A, số thứ i là tổng của i phần tử đầu tiên của dãy A.
Yêu cầu: Hãy viết lại các số An và Bình nói nhanh đó;
Dữ liệu gồm:
- Dòng 1: một số nguyên dương n (n )
- Dòng 2: ghi lần lượt các số a1, a2, …, an tương ứng với các số của dãy A.
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.
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.
MỌI NGƯỜI GIÚP MÌNH MÔN TIN VỚI Ạ!
Cho dãy số (a1, a2, a3, ..., an) là một hoán vị bất kỳ của tập hợp (1, 2, 3, ..., n). Dãy số (b1, b2, b3, ..., bn) gọi là nghịch thế của dãy a nếu bi là số phần tử đứng trước số i trong dãy a mà lớn hơn i.
Ví dụ:
Dãy a là: 3 2 5 7 1 4 6
Dãy b là: 4 1 0 2 0 1 0
a. Cho dãy a, hãy xây dựng chương trình tìm dãy b.
b. Cho dãy b, xây dựng chương trình tìm dãy a.
Dữ liệu vào: Trong file NGICH.INP với nội dung:
-Dòng đầu tiên là số n (1 <= n <= 10 000).
-Các dòng tiếp theo là n số của dãy a, mỗi số cách nhau một dấu cách,
-Các dòng tiếp theo là n số của dãy b, mỗi số cách nhau bởi một dấu cách.
Dữ liệu ra: Trong file NGHICH.OUT với nội dung:
-N số đầu tiên là kết quả của câu a
-Tiếp đó là một dòng trống và sau đó là n số kết quả của câu b (nếu tìm được dãy a).
Người ta nói tần số của một số A trong một dãy số A1, A2, …,An là số lần xuất hiện của số A trong dãy A1,A2,…,An.
Ví dụ: Cho dãy số 2 3 4 5 1 3 3 4 3
Tần số của số 2 là 1. Tần số của số 3 là 4.
Cho một file văn bản có tên TANSO.INP và có cấu trúc như sau:
Dòng 1: Chứa số nguyên N dương (0<N<=10000)
N dòng tiếp theo: mỗi dòng chứa một số nguyên Ai (0<Ai<101), các số ghi cách nhau ít nhất một dấu cách trống.
Hãy viết chương trình đọc file trên và tìm tần số xuất hiện của các số trong N số đã cho. Yêu cầu chương trình chạy không quá 2 giây.
Kết quả xuất ra file văn bản TANSO.OUT gồm nhiều dòng. Mỗi dòng chứa 2 số Ai và Ki ghi cách nhau ít nhất một dấu cách trống. Trong đó Ai là số thuộc dãy, Ki là tần số của số Ai. Ai được xếp tăng dần từ đầu đến cuối file.
Bài. Tính trung bình cộng các phần tử trong dãy Cho dãy số nguyên gồm N phần tử a1, a2, …, aN
Yêu cầu: Tính trung cộng các phần tử trong dãy. Dữ liệu vào: File văn bản AVG.INP gồm + Dòng đầu ghi số N ; + Dòng thứ hai một dãy số nguyên a1, a2, …, aN (mỗi số cách nhau ít nhất một dấu cách). Dữ liệu ra: Ghi ra file văn bản AVG.OUT + Một số duy nhất là trung bình cộng các phần tử trong dãy(làm tròn một chữ số thập phân).
#include <bits/stdc++.h>
using namespace std;
long long a[10000],i,n,t;
int main()
{
freopen("avg.inp","r",stdin);
freopen("avg.out","w",stdout);
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(1)<<(t*1.0)/(n*1.0);
return 0;
}
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.