Nhập và dãy số có N phần tử sau đó tính tổng các số chia hết cho 3 nhưng không chia hiết cho 4
Viết chương trình nhập vào 1 dãy số nguyên gồm N phần tử(N<=100) và thực hiện: _Tính tổng các số âm trong dãy vừa nhập _Đếm số lượng các số chia hết cho 3 nhưng không phải là số chẵn trong dãy đó
các bn giúp mik tin với
NHẬP VÀO DÃY SỐ GỒM n PHẦN TỬ, n NHẬP TỪ BÀN PHÍM
a) tính tổng các số am trong dãy
b) tính tổng các số chia hết cho 2 trong dãy
c) tính tổng các số dương và chia hết cho 3 trong dãy
HD: dựa vào chương trình bài 2
b) nêu điều kiện để 1 số chia hết cho 2
c) khi có 2 điều kiện em cần dùng thêm hàm nào?
MONG CÁC BN TRẢ LỜI SỚM GIÚP MIK
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,t3:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
for i:=1 to n do
if a[i]<0 then t1:=t1+a[i];
writeln('Tong cac so am la: ',t1);
t2:=0;
for i:=1 to n do
if a[i] mod 2=0 then t2:=t2+a[i];
writeln('Tong cac so chia het cho 2 la: ',t2);
t3:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];
writeln('Tong cac so duong chia het cho 3 la: ',t3);
readln;
end.
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy n số nguyên từ bàn phím. Sau đó in kết quả ra màn hình Bài 2:VCT tính tổng các phần tử chia hết cho 5 của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình Bài 3: VCT tính tích các phần tử là số chẵn của dãy n nhập từ bàn phím và in kết quả r màn hình (Giúp mik vs ạ)
Bài 1:
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;
write('Co ',d,' so nguyen am chan trong day so');
readln
end.
Bài 2:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];
write(Tong la: ',t);
readln
end.
Bài 3:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=1;
for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];
write('Tich la: ',t);
readln
end.
Nhập 1 mảng A gồm N số nguyên (N nhập từ bàn phím và <=100) Tính tổng các phần tử chia hết cho 3 có mặt trong dãy
#include <bits/stdc++.h>
using namespace std;
long long n,i,x;
int main()
{
cin>>n;
long long t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%3==0) t=t+x;
}
cout<<t;
return 0;
}
Viết công thức nhập vào dãy số N phân tử đếm các phân tử không chia hết cho 3.Tính tổng các phân tử chẵn không chia hết cho 4.Kết quả hiển thị ra màn hình
#include <bits/stdc++.h>
using namespace std;
int n,A[1000],i,dem=0,t=0;
int main()
{
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
for (int i=1; i<=n; i++)
{
if (A[i]%3!=0) dem++;
if (A[i]%4==2) t+=A[i];
}
cout<<dem<<endl;
cout<<t;
return 0;
}
Yêu cầu: Viết chương trình nhập vào số nguyên. Xóa các phần tử chia hết cho 3 của dãy và in ra dãy sau khi xóa. Sau đó lại xóa các phần tử chia hết cho 5 trong dãy còn lại và in ra dãy
Dữ liệu:
Dòng đầu tiên ghi số nguyên dương n (0<n<=105) ,
Dòng 2 ghi n số nguyên dương 64 bit cách nhau một dấu cách trống.
Kết quả:
Dòng đầu tiên ghi dãy sau khi xóa đi các phần tử chia hết cho 3,
Dòng thứ hai ghi dãy sau khi xóa hết các phần tử chia hết cho cả 3 và 5.
C++.Mong mn giúp
#include <bits/stdc++.h>
#define ll long long
using namespace std;
ll i, j, n, a[1000005], dem = 0, m;
int main()
{
ios::sync_with_stdio(0);
cin.tie(0);
cout.tie(0);
cin >> n;
for (i = 1; i <= n; i++)
{
cin >> a[i];
if (a[i] % 3 == 0)
{
n--;
i--;
}
}
for (i = 1; i <= n; i++)
{
cout << a[i] << " ";
}
cout<<endl;
for(i=1;i<=n;i++)
{
if(a[i]%5==0)
{
for(j=i;j<=n;j++)
{
a[j]=a[j+1];
}
n--;
i--;
}
}
for(i=1;i<=n;i++)
{
cout<<a[i]<<" ";
}
return 0;
}
Viết CT nhập dãy số nguyên A gồm n phần tử (n<=100) . Tính và đưa ra màn hình tổng các số chia hết cho 3 và 5 trong dãy
Var so,n,i:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If (so mod 3 = 0) and (so mod 5 = 0) then
s:=s+so;
End;
Write('Tong la ',s);
Readln;
End.
Nhập từ bàn phím dãy số nguyên E gồm d phần tử. Hãy in ra màn hình các số không chia hết cho q ( q nhập từ bàn phím), tính tích các số đó và tính tổng bình phương các số còn lại
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy b số nguyên từ bàn phím. Sau in kết dãy số và kết quả r màn hình
Bài 2: VCT tính tổng các phần tử chia hết cho 5 của dãy n sô nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình
(Giúp mik vs ạ)