Tạo mãng a với số phần tử n<100. Gía trị tuyệt đối của phần tử không vượt quá 300. tổng của chúng bằng bội số của 1 số tự nhiên k cho trước. (Pascal)
viết chương trình
-nhập mãng n phần tử
-in mãng
-sắp xép các phần tử tăng dần
-in kết quả sau khi sắp xếp
n=6
cac số:3,5,1,4,2,6
mảng 1 2 3 4 5 6
uses crt;
var g:array[1..5]of integer;
i,vtc,vtl:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('G[',i,']='); readln(g[i]);
end;
vtc:=0;
vtl:=0;
for i:=1 to 5 do
begin
if g[i] mod 2=0 then
begin
if vtc<i then vtc:=i;
end
else begin
if vtl<i then vtl:=i;
end;
end;
writeln('Vi tri phan tu le cuoi cung la: ',vtl);
writeln('Vi tri phan tu chan cuoi cung la: ',vtc);
readln;
end.
Viết câu lệnh thực hiện yêu cầu sau:
1. Khai báo mãng 1 chiều gồm 10 phần tử số nguyên dương trong phạm vi [500..10000]
2. Nhập mãng 1 chiều khai báo ở câu 1
3. In mãng 1 chiều nhập câu 2 4. Với dữ liệu câu 2, yêu cầu tính và in ra màn hình:
4a. Tổng các số chẵn
4b. Đếm các số lẽ 4c. Tích các số chia hết cho 2 hoặc 3
#include <bits/stdc++.h>
using namespace std;
long long a[10],i,t,dem;
int main()
{
for (i=1; i<=10; i++) cin>>a[i];
t=0;
dem=0;
for (i=1; i<=10; i++)
{
if (a[i]%2==0) t=t+a[i];
else dem++;
}
for (i=1; i<=10; i++) cout<<a[i]<<" ";
cout<<endl;
cout<<t<<endl;
cout<<dem;
return 0;
}
Viết câu lệnh thực hiện yêu cầu sau: 1. Khai báo mãng 1 chiều gồm 10 phần tử số nguyên dương trong phạm vi [500..10000] 2. Nhập mãng 1 chiều khai báo ở câu 1 3. In mãng 1 chiều nhập câu 2 4. Với dữ liệu câu 2, yêu cầu tính và in ra màn hình: 4a. Tổng các số chẵn 4b. Đếm các số lẽ 4c. Tích các số chia hết cho 2 hoặc 3
#include <bits/stdc++.h>
using namespace std;
long long a[10],i,n,t1,dem1,s;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t1=0;
dem1=0;
s=1;
for (i=1; i<=n; i++)
{
if (a[i]%2==0) t1+=a[i];
else dem1+=1;
if ((a[i]%2==0) or (a[i]%3==0)) s=s*a[i];
}
cout<<t1<<endl;
cout<<dem1<<endl;
cout<<s;
return 0;
}
Viết câu lệnh thực hiện yêu cầu sau: 1. Khai báo mãng 1 chiều gồm 10 phần tử số nguyên dương trong phạm vi [500..10000] 2. Nhập mãng 1 chiều khai báo ở câu 1 3. In mãng 1 chiều nhập câu 2
Viết câu lệnh thực hiện yêu cầu sau:
4. Với dữ liệu câu 2, yêu cầu tính và in ra màn hình:
4a. Tổng các số chẵn
4b. Đếm các số lẽ
4c. Tích các số chia hết cho 2 hoặc 3
#include <bits/stdc++.h>
using namespace std;
long long a[10],i,n,t1,dem1,s;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t1=0;
dem1=0;
s=1;
for (i=1; i<=n; i++)
{
if (a[i]%2==0) t1+=a[i];
else dem1+=1;
if ((a[i]%2==0) or (a[i]%3==0)) s=s*a[i];
}
cout<<t1<<endl;
cout<<dem1<<endl;
cout<<s;
return 0;
}
nhập mã gồm n số nguyên từ bàn phím , xuất mãng vừa nhập , tính tổng các ptu của mãng , tính tổng các ptu là số âm,dương có trong mãng
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,t1,t2,t3;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t1=0;
t2=0;
t3=0;
for (i=1; i<=n; i++)
{
t1+=a[i];
if (a[i]<0) t2+=a[i];
if (a[i]>0) t3+=a[i];
}
cout<<t1<<endl;
cout<<t2<<endl;
cout<<t3;
return 0;
}
Bài1. Viết 1 chương trình tạo 1 mảng số nguyên a gồm có N phần tử với N phần tử được nhập từ bàn phím
a. Nhập vào các giá trị cho các phần tử của mảng
b. Xuất các phần tử mang giá trị âm của mảng
c. Tính tích các phần tử mang giá trị chẵn của mảng
nhập mã gồm n số nguyên từ bàn phím xuất mãng vừa nhập ,tính tổng các ptu là số chẵn có trong mãng
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
tạo mảng a gồm n phần tử (n<= 100) số nguyên viết chương trình tính và in ra màng hình tổng và số lượng phần tử chẵn trong mảng
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chan la: ',t);
writeln('So luong so chan la: ',dem);
readln;
end.