Những câu hỏi liên quan
Em hãy viết chương trình hoàn chỉnh nhập vào mảng 1 chiều gồm 6 phần tử . Đếm và tính tổng các phần tử dương của mảng vừa nhập , biết rằng các phần tử trong mảng là các số nguyên
uses crt;
var a:array[1..6]of integer;
i,dem,t:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to 6 do
if a[i]>0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1 mảng gồm 10 phần tử hãy:
1. Hiển thị dãy vừa nhập trên 1 hang.
2. Tính tổng các phần tử trong mảng.
3. Tính trung bình cộng các phần tử trong mảng.
4. Tính tổng các số âm và số dương trong mảng.
5. Tính tổng các số chẵn và số lẻ trong mảng.
6. Đếm các số âm, số dương, số chẵn, số lẻ trong mảng.
program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to 10 do write(a[i],', ');
writeln;
s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
for i:=1 to 10 do begin
s := s + a[i];
if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
else begin sl := sl + a[i]; dl := dl + 1 end;
end;
writeln('Tong cac phan tu trong mang la ',s);
writeln('Trung binh cong cac phan tu trong mang la ',s/10);
writeln('Tong cac so am la ',sa);
writeln('Tong cac so duong la ',sd);
writeln('Tong cac so chan la ',sc);
writeln('Tong cac so le la ',sl);
writeln('So cac so am la ', da);
writeln('So cac so duong la ', dd);
writeln('So cac so chan la ', dc);
writeln('So cac so le la ', dl);
readln
end.
Đúng 0
Bình luận (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 72.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 tiếp
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.
Đúng 1
Bình luận (0)
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ươ...
Đọc tiếp
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.
Đúng 1
Bình luận (0)
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.
Đúng 1
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình nhập vào bàn phím mảng 1 chiều gồm n phần tử. Đếm số phần tử đặc biệt trong mảng: Các phần tử dương ( âm, ko dương, ko âm) đồng thời chia hết(ko chia hết) cho 1 số bất kỳ.
Mn giúp em vs ạ!!!
Viết chương trình nhập mảng gồm n phần tử. In mảng lên màn hình và tính tổng các phần
tử âm trong mảng
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 1
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 0
Bình luận (0)
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 0
Bình luận (0)
C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn ( n được nhập tử bàn phím )
C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó
Câu 1:
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
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:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
t:real;
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:4:2);
readln;
end.
Đúng 0
Bình luận (0)