2. Cho mảng A gồm 10 phần tử thuộc kiểu nguyên. Viết chương trình tính tổng các số chân của mảng A
cho mảng a gồm n phần tử thuộc kiểu nguyên (0<N<10^3) viết chương trình tính tổng các số chia hết cho 3 hoặc 6 trong bảng a
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%3==0) t+=a[i];
cout<<t;
return 0;
}
Cho mảng A gồm N phần tử thuộc kiểu nguyên (0<N<10 mũ 3 . Viết chương trình tìm phần tử nhỏ nhất của mảng A
Khi nãy gửi nhầm 2 cái nha
program Baitap1;
uses crt;
var Min ,n, i:integer;
A: array [1..1000] of integer;
begin
clrscr;
write('Nhap N ');readln(n);
for i:=1 to n do begin
write('A[',i,']=');readln(A[i]);
end;
Min:=A[1];
for i:=1 to n do if Min>A[i] then Min:=A[i];
write('So Nho Nhat Trong Mang La ',Min);
readln;
end.
Cho mảng A gồm 5 phần tử thuộc kiểu nguyên.Hãy lập chương trình: a. Nhập mảng và in mảng ra màn hình b. Tính tổng các phần tử của mảng A c. In ra màn hình các phần tử ở vị trí lẻ của mảng
#include <bits/stdc++.h>
using namespace std;
long long a[5],i,n,t;
int main()
{
n=5;
for (i=1; i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t<<endl;
for (i=1; i<=n; i++)
if (i%2!=0) cout<<a[i]<<" ";
return 0;
}
BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình phần tử có giá trị lớn nhất trong mảng. BT5: Viết chương trình nhập vào một mảng gồm n phần tử số thực. In ra màn hình chỉ số của phần tử nhỏ nhất trong mảng. BT6: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. Đếm xem trong mảng vừa nhập có bao nhiêu phần tử lẻ.
6:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100],i,dem=0;
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
for (int i=1;i<=n; i++)
if (A[i]%2!=0) dem++;
cout<<dem;
return 0;
}
5:
#include <bits/stdc++.h>
using namespace std;
int main()
{
long long n,nn=1e6,A[1000];
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
for (int i=1; i<=n; i++)
nn=min(nn,A[i]);
for (int i=1; i<=n; i++)
if (nn==A[i]) cout<<i<<" ";
return 0;
}
1.viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 7
2.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố
3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K<= 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ số
mn giúp em giải với ạ
Câu 1:
uses crt;
var a:array[1..500]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap 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 (a[i]<0) and (a[i] mod 7=0) then t:=t+a[i];
writeln('Tong cac so am chia het cho 7 la: ',t);
readln;
end.
Câu 2:
uses crt;
var c,a:array[1..10]of integer;
i,kt,j,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('C[',i,']='); readln(c[i]);
end;
dem:=0;
for i:=1 to 10 do
if c[i]>1 then
begin
kt:=0;
for j:=2 to c[i]-1 do
if c[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=c[i];
end;
end;
if dem=0 then writeln('Trong day khong co so nguyen to')
else begin
writeln('Cac so nguyen to trong day la: ');
for i:=1 to dem do
write(a[i]:4);
end;
readln;
end.
Câu 3:
uses crt;
var d:array[1..200]of integer;
i,k,dem:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
begin
write('D[',i,']='); readln(d[i]);
end;
dem:=0;
for i:=1 to k do
if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);
writeln('So phan tu chan co 2 chu so la: ',dem);
readln;
end.
Viết chương trình in ra giá trị của các phần tử của mảng D. Biết mảng D gồm 60 phần tử thuộc kiểu số nguyên.
#include <bits/stdc++.h>
using namespace std;
long long d[60],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>d[i];
for (i=1; i<=n; i++) cout<<d[i]<<" ";
return 0;
}
cho mảng A gồm N phần tử thuộc kiểu nguyên (0<N<103). Viết chương trình đếm số lượng số lẻ và chia hết cho 3 của mảng A
Cho mảng một chiều gồm n phần tử thuộc kiểu số nguyên viết chương trình nhâp mảng xuất dữ liệu của mảng đếm và in ra các phần tử chính phương trong mảng sắp xếp các phần tử mảng theo thứ tự số chẵn tăng số lẻ giảm
1.viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng là các số chẵn và in các phần tử đó lên màn hình. 2.Viết chương trình nhập vào mã số nguyên n phần tử. Tính tích các phần tử trong mảng và in các phần tử của mảng là số trong mảng lên màn hình. 3. Viết chương trình nhập vào mã số nguyên n phân tử. Đếm xem phần mảng có bao nhiêu phần tử lớn hơn 0. Tính và thông báo lên màn hình tổng bình phương các số lẻ.Tìm và thông báo lên màn hình giá trị lớn nhất có trong mảng. 4. Viết chương trình nhập vào 2 số nguyên A,B a) Tính rồi thông báo lên màn hình các ước số của A,B b) Tìm rồi thông báo lên màn hình các ước số chung của A và B. 5.Viết chương trình nhập vào 1 số nguyên ban đầu, nhập vào công sai. Thông báo lên màn hình kết quả của cấp số cộng thứ N n số với n số nguyên được nhập vào màn hình. 6.Viết chương trình in ra màn hình các số nguyên tố đầu tiên trong khoảng N với N là số nguyên nhập vào từ bàn phím. 7. Viết chương trình in lên màn hình một số hoàn thiện nhở hơn N với N là số nguyên nhập vào từ bàn phím. 8. Viết chương trình nhập vào số lượng học sinh và số môn học của mỗi học sinh. Tính và biểu thị lên điểm trung bình của từng học sinh Giúp tớ với ạ Giúp được câu nào thì giúp ạ Nhất là mấy câu cuối cuối ý ạ Rất mong sự giúp đỡ từ mọi người!!!
Câu 1:
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap 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 a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
2:
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=1;
for i:=1 to n do
t:=t*a[i];
writeln(t);
readln;
end.
Câu 4: Viết chương trình nhập mảng a gồm 10 phần tử là số nguyên. Tính và in ra tổng các phần tử trong mảng.
mọi người giải gúp em với:(
program TinhTongMang;
var
a: array[1..10] of integer;
i, tong: integer;
begin
tong := 0;
writeln('Nhap mang a gom 10 phan tu:');
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
tong := tong + a[i];
end;
writeln('Tong cac phan tu cua mang la: ', tong);
end.