Cho số nguyên dương N và dãy N số nguyên dương. Tìm số trong dãy có tổng ước lớn nhất
Những câu hỏi liên quan
1. Cho N và dãy N số nguyên, đếm số 0 trong dãy và thông báo ra màn hình 2. Tính tổng 3 số lớn nhất trong dãy N số nguyên 3. Tính tổng các chữ số của số nguyên dương N
1:
#include <bits/stdc++.h>
using namespace std;
long long n,i,dem,x;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==0) dem++;
}
cout<<dem;
return 0;
}
Đúng 1
Bình luận (0)
Cho một dãy gồm N các số nguyên (nhập từ bàn phím). Hãy viết chương trình thực hiện các yêu cầu sau:
a. Tìm và tính tổng các số nguyên tố trong dãy.
b. Tìm và in ra các số nguyên dương, nguyên âm có trong dãy, tìm số nguyên âm lớn nhất và số nguyên dương nhỏ nhất của dãy.
c. Sắp xếp các số nguyên dương lên đầu dãy, các số nguyên âm tiếp theo và cuối cung là số 0.
( Nếu loại số nào không có thì in ra “ Trong day khong có so ...”)
Đọc tiếp
Cho một dãy gồm N các số nguyên (nhập từ bàn phím). Hãy viết chương trình thực hiện các yêu cầu sau: a. Tìm và tính tổng các số nguyên tố trong dãy. b. Tìm và in ra các số nguyên dương, nguyên âm có trong dãy, tìm số nguyên âm lớn nhất và số nguyên dương nhỏ nhất của dãy. c. Sắp xếp các số nguyên dương lên đầu dãy, các số nguyên âm tiếp theo và cuối cung là số 0. ( Nếu loại số nào không có thì in ra “ Trong day khong có so ...”)
nhập số nguyên dương n in ra tổng các số nguyên dương n và dãy số a1 a2...an. Hãy in ra số lớn nhất (max) của dãy số đó
Bài 1
Var a:array:[1..1000] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so la ',s);
Readln
End.
Đúng 1
Bình luận (0)
BT: Viết chương trình nhập vào một dãy N số nguyên dương (N150), nhập vào số nguyên dương K.1. Tìm và đưa ra màn hình số lớn nhất (Max) của dãy vừa nhập, nếu dãy có nhiều số đạt Max thì tính tổng Max và đưa ra màn hình tất cả các vị trí đạt Max.2. Tìm và đưa ra màn hình số nhỏ nhất (Min) của dãy vừa nhập, nếu dãy có nhiều số đạt Min thì tính tổng Min và đưa ra màn hình tất cả các vị trí đạt Min3. Đếm và tính tổng các số ở vị trí chẵn là bội của số K trong dãy vừa nhập và đưa kết...
Đọc tiếp
BT: Viết chương trình nhập vào một dãy N số nguyên dương (N<=150), nhập vào số nguyên dương K.
1. Tìm và đưa ra màn hình số lớn nhất (Max) của dãy vừa nhập, nếu dãy có nhiều số đạt Max thì tính tổng Max và đưa ra màn hình tất cả các vị trí đạt Max.
2. Tìm và đưa ra màn hình số nhỏ nhất (Min) của dãy vừa nhập, nếu dãy có nhiều số đạt Min thì tính tổng Min và đưa ra màn hình tất cả các vị trí đạt Min
3. Đếm và tính tổng các số ở vị trí chẵn là bội của số K trong dãy vừa nhập và đưa kết quả ra màn hình.
4. Đếm và tính tổng các số ở vị trí lẻ là ước của số K trong dãy vừa nhập và đưa kết quả ra màn hình.
5. Số a và số b là anh em của nhau nếu a = b + 1 hoặc b = a + 1. Đếm và tính tổng các số là anh em của K trong dãy vừa nhập và đưa kết quả ra màn hình.
uses crt;
var a,vtmax,vtmin:array[1..100]of integer;
n,i,max,min,dem,t,dem1,t1,dem2,t2,dem3,t3,dem4,t4,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat trong day la: ',max);
dem:=0;
t:=0;
for i:=1 to n do
if max=a[i] then
begin
inc(dem);
t:=t+a[i];
vtmax[dem]:=i;
end;
if dem>1 then
begin
writeln('Tong cac so max la: ',t);
writeln('Cac vi tri co so max la: ');
for i:=1 to dem do
write(vtmax[i]:4);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('So nho nhat trong day la: ',min);
dem1:=0;
t1:=0;
for i:=1 to n do
if min=a[i] then
begin
inc(dem1);
t1:=t1+a[i];
vtmin[dem1]:=i;
end;
if dem1>1 then
begin
writeln('Tong cac so min la: ',t1);
writeln('Cac vi tri co so min la: ');
for i:=1 to dem1 do
write(vtmin[i]:4);
end;
write('Nhap k='); readln(k);
dem2:=0;
t2:=0;
for i:=1 to n do
if (i mod 2=0) and (a[i] mod k=0) then
begin
dem2:=dem2+1;
t2:=t2+a[i];
end;
writeln('So phan tu o vi tri chan trong day la boi cua ',k,' la: ',dem2);
writeln('Tong cac so o vi tri chan trong day la boi cua ',k,' la: ',t2);
dem3:=0;
t3:=0;
for i:=1 to n do
if (i mod 2=1) and (k mod a[i]=0) then
begin
inc(dem3);
t3:=t3+a[i];
end;
writeln('So phan tu o vi tri le trong day la uoc cua ',k,' la: ',dem3);
writeln('Tong cac so o vi tri le trong day la uoc cua ',k,' la: ',t3);
dem4:=0;
t4:=0;
for i:=1 to n do
if (a[i]+k=1) or (a[i]=k+1) then
begin
inc(dem4);
t4:=t4+a[i];
end;
writeln('So phan tu la anh em cua ',k,' trong day la: ',dem4);
writeln('Tong cac phan tu la anh em cua ',k,' trong day la: ',t4);
readln;
end.
Đúng 0
Bình luận (0)
xây dựng bài toán cho các bài toán sau:
a)nhập vào số nguyên N và dãy các số a1,a2,...,an.hãy tính tổng các số dương có trong dãy
b)nhập vào số nguyên N và dãy các số a1,a2,...,an.hãy đếm các số dương có trong dãy
Nhập vào số nguyên dương N (N ≤ 100) và dãy A gồm N số nguyên dương A1, A2, …, AN (Ai ≤2.1019). In ra màn hình số chính phương lớn nhất trong dãy A. Nếu trong dãy không có số chính phương nào thì in ra giá trị là -1
Đọc tiếp
Nhập vào số nguyên dương N (N ≤ 100) và dãy A gồm N số nguyên dương A1, A2, …, AN (Ai ≤2.1019). In ra màn hình số chính phương lớn nhất trong dãy A. Nếu trong dãy không có số chính phương nào thì in ra giá trị là -1
Câu 1: Tìm số lớn nhất File chương trình: TimMax.pas
Yêu cầu: Tìm số lớn nhất trong dãy số nguyên cho trước.
Dữ liệu vào: Đọc từ file TimMax.inp, gồm:
- Dòng thứ nhất: Số nguyên dương N (1N103) là số lượng các số nguyên trong dãy số.
- Dòng thứ hai: là các số nguyên trong dãy số, các số nguyên được viết cách nhau 1 khoảng trắng và không vượt quá 109.
Dữ liệu ra: Ghi vào file TimMax.out, gồm 1 giá trị duy nhất là kết quả của bài toán.
Ví dụ:
TIMMAX.INP
TIMMAX.OUT...
Đọc tiếp
Câu 1: Tìm số lớn nhất File chương trình: TimMax.pas
Yêu cầu: Tìm số lớn nhất trong dãy số nguyên cho trước.
Dữ liệu vào: Đọc từ file TimMax.inp, gồm:
- Dòng thứ nhất: Số nguyên dương N (1<N<103) là số lượng các số nguyên trong dãy số.
- Dòng thứ hai: là các số nguyên trong dãy số, các số nguyên được viết cách nhau 1 khoảng trắng và không vượt quá 109.
Dữ liệu ra: Ghi vào file TimMax.out, gồm 1 giá trị duy nhất là kết quả của bài toán.
Ví dụ:
|
TIMMAX.INP |
TIMMAX.OUT |
|
4 5 6 1 2 |
6 |
Ai giúp giải câu này với
Cho số nguyên dương n(n nhỏ hơn hoặc bằng 250) và dãy A gồm n số nguyên dương A1, A2,...An. mỗi số đều không vượt quá 500 .
a/Tính tổng các số là bội của 3
b/tìm giá trị lớn nhất nhỏ nhất của mảng
Xem chi tiết
uses crt;
var a:array[1..250]of integer;
n,i,t,max,min: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 3=0 then t:=t+a[i];
writeln('Tong cac so la boi cua 3 la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Đúng 2
Bình luận (0)
cho số nguyên N và 1 dãy số N số nguyên. tính tổng của tất cẩ các số chẵn có ở trong dãy b. đếm số lượng các số dương lẽ ở trong dãy
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;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
dem:=0;
for i:=1 to n do
if a[i] mod 2=1 then inc(dem);
writeln('Tong cac so chan la: ',t);
writeln('So luong so duong le la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)