Nhập vào một dãy số nguyên và n phần tử và in ra màn hình tích các số dương
Những câu hỏi liên quan
viết chương trình nhập vào một dãy số nguyên n phần tử, n nhập từ bàn phím.
a) In ra màn hình dãy số vừa nhập xếp theo thứ tự tăng dần.
b) In ra màn hình các số nguyên tố trong dãy số vừa nhập và đếm xem đã nhập vào bao nhiêu số nguyên tố.
VCT đếm các phần tử là số nguyên dương lẻ 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 2: VCT tính tích các phần tử là số chẵn 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
8 tháng 5 2023 lúc 20:16
Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150).
a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống.
b. Tính tổng các phần tử chẵn và in kết quả ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua day A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
writeln('Day so vua nhap la:');
for i := 1 to N do
write(A[i], ' ');
writeln;
sum := 0;
for i := 1 to N do
if A[i] mod 2 = 0 then
sum := sum + A[i];
writeln('Tong cac phan tu chan trong day la: ', sum);
readln;
end.
Đúng 2
Bình luận (1)
Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150).
a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống.
b. Tính tổng các phần tử chẵn và in kết quả ra màn hình.
Bài 1: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tổng các phần tử nguyên âm lẻ và in tổng đó ra màn hình. Bài 2: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tích các phần tử nguyên dương chẵn và in tích đó ra màn hình.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if ((x<0) and (x%2!=0)) t=t+x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Nhập vào dãy số gồm N phần tử đếm các số dương tính tổng và in ra màn hình các số đó
uses crt;
var i,n,n,d: integer;
t: longint;
A: array[1..32000] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] >0 then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Tong la:',t);
write('Co tat ca so so duong la:',d);
readln;
end.
Đúng 1
Bình luận (0)
1. Viết CT nhập vào 1 dãy số nguyên có N phần tử (N150). In ra màn hình và ghi ra tệp D:SO_CHAN.TXT các phần tử là số chẵn.2.Viết CT nhập vào họ và tên của một người bằng chữ in thường. In ra màn hình và ghi ra tệp D:HO_TEN.TXT họ tên người đó bằng chữ in hoa.3. Cho tệp D:SO_HANG.TXT chứa các cặp số nguyên( mỗi số cách nhau 1 khoảng trắng, mỗi cặp nằm trên 1 dòng. Viết CT tính tổng các cặp số đó, kết quả in ra màn hình và ghi ra tệp D:KET_QUA.TXT.4. Cho tệp D:HO_TEN.TXT chứa họ tên của một số ng...
Đọc tiếp
1. Viết CT nhập vào 1 dãy số nguyên có N phần tử (N=150). In ra màn hình và ghi ra tệp D:\SO_CHAN.TXT các phần tử là số chẵn.
2.Viết CT nhập vào họ và tên của một người bằng chữ in thường. In ra màn hình và ghi ra tệp D:\HO_TEN.TXT họ tên người đó bằng chữ in hoa.
3. Cho tệp D:\SO_HANG.TXT chứa các cặp số nguyên( mỗi số cách nhau 1 khoảng trắng, mỗi cặp nằm trên 1 dòng. Viết CT tính tổng các cặp số đó, kết quả in ra màn hình và ghi ra tệp D:\KET_QUA.TXT.
4. Cho tệp D:\HO_TEN.TXT chứa họ tên của một số người bằng chữ in thường. Viết CT in ra màn hình và ghi ra tệp D:\HT_HOA.TXT họ tên những người đó bằng chữ in hoa. Giúp mik vs ạ tks nhiều
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
1. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do write(i:3);
readln;
end.
2. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2 = 0) then write(i:3);
readln;
end.
Đúng 3
Bình luận (0)
1. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do write(i:3);
readln;
end.
2. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2 = 0) then write(i:3);
readln;
end.
Đúng 0
Bình luận (0)
1.
program InDaySoTuNhien;
var n, i: integer;
begin
write('Nhap so nguyen duong n: ');
readln(n);
writeln('Day so tu 1 den ', n, ' la:');
for i := 1 to n do
write(i, ' ');
end.
2.
program InSoChan;
var
n, i: integer;
begin
write('Nhap so nguyen n: ');
readln(n);
writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
for i := 1 to n do
begin
if i mod 2 = 0 then
write(i, ' ');
end;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
Bài 5:
Var a:array:[1..1000] of integer;
i,n,max:integer;
sc, sl:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');rreadlna[i]);
If a[i] mod 2 = 0 then sc:=sc+b[i];
If a[i] mod 2 <> 0 then sl:=sl+a[i];
End;
max:=a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
Writeln('Tong cac so chan la ',sc);
Writeln('Tong cac so le la ',sl);
write('So lon nhat la ',max);
Readln
End.
Đúng 1
Bình luận (1)