Cho dãy số A gồm các phần tử a1,a2...an .
a) Tìm số lớn nhất dãy A
b) Tìm số nhỏ nhất dãy A
Những câu hỏi liên quan
Viêy thuật toán và chương trình nhập từ bàn phím dãy A gồm n phần tử a1, a2, a3, ...an có kiểu số thực. Tìm phần tử lớn nhất, nhỏ nhất của dãy A
: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n300, |ai| 40000).a. Tính tổng dãy số A.b. Tính tổng các số chia hết cho 3 có trong dãy số trên.c. Đếm số lượng số chẵn, lẻ có trong dãy số trên.f. tìm phần tử lớn nhất, nhỏ nhất của dãy số.g. Tính tổng bình phương các số âm có trong dãy số trên.
Đọc tiếp
: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n<=300, |ai| <= 40000).
a. Tính tổng dãy số A.
b. Tính tổng các số chia hết cho 3 có trong dãy số trên.
c. Đếm số lượng số chẵn, lẻ có trong dãy số trên.
f. tìm phần tử lớn nhất, nhỏ nhất của dãy số.
g. Tính tổng bình phương các số âm có trong dãy số trên.
Viết chương trình, cho 1 dãy số nguyên gồm N phần tử (A1,A2,…,AN). Tìm ước chung lớn nhất của dãy số trên.
uses crt;
var i,n,a,b, uc,bcnn:integer ;
c:array[1..100] of integer;
{--- CTC tim UCLL hai so}
function ucln(a,b:integer):integer;
var r:integer;
begin
r:=a mod b;
while r<>0 do begin a:=b; b:=r; r:= a mod b; end;
ucln:=b;
end;
{--- CTC chinh----}
begin
Write('n= '); readln(n);
for i:=1 to n do
begin write('c[',i,']='); readln(c[i]); end;
for i:= 1 to n do Write(c[i]:3);writeln;
uc:=ucln(c[1], c[2]);
bcnn:=(c[1]*c[2])div uc;
for i:=3 to n do
begin
uc:=ucln(uc,c[i]);
bcnn:= bcnn*c[i] div uc;
end;
Writeln('bcnn =',bcnn);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy số gồm n phần tử a1,a2...an tìm vị trí và in ra giá trị lớn nhất dãy số
Xem chi tiết
uses crt;
var a:array[1..200]of integer;
i,n,max: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('Gia tri lon nhat la: ',max);
write('Vi tri la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
readln;
end.
Đúng 1
Bình luận (0)
Nói nhanh: Từ dãy số nguyên A ban đầu gồm n phần tử: a1,a2,...,an (ai ). An và Bình thay phiên nhau nói nhanh các số sao cho số thứ nhất là phần tử đầu tiên của dãy A, số thứ hai là tổng của hai phần tử đầu tiên của dãy A, số thứ i là tổng của i phần tử đầu tiên của dãy A.Yêu cầu: Hãy viết lại các số An và Bình nói nhanh đó;Dữ liệu gồm: - Dòng 1: một số nguyên dương n (n )- Dòng 2: ghi lần lượt các số a1, a2, …, an tương ứng với các số của dãy A.
Đọc tiếp
Nói nhanh: Từ dãy số nguyên A ban đầu gồm n phần tử: a1,a2,...,an (ai ). An và Bình thay phiên nhau nói nhanh các số sao cho số thứ nhất là phần tử đầu tiên của dãy A, số thứ hai là tổng của hai phần tử đầu tiên của dãy A, số thứ i là tổng của i phần tử đầu tiên của dãy A.
Yêu cầu: Hãy viết lại các số An và Bình nói nhanh đó;
Dữ liệu gồm:
- Dòng 1: một số nguyên dương n (n )
- Dòng 2: ghi lần lượt các số a1, a2, …, an tương ứng với các số của dãy A.
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 một dãy số nguyên A gồm N phần tử A1, A2,…, AN và hai số nguyên dương U, V (1 ≤ U ≤ V ≤ N). Hãy tìm một đoạn con liên tiếp của dãy A có tổng các phần tử đạt giá trị lớn nhất và độ dài là D tùy ý với U ≤ D ≤ V. (Độ dài của đoạn con là số lượng phần tử trên đoạn con đó).input out5 12 3 -4 3 -2 -6 5giúp em với c++ ạ
Đọc tiếp
Cho một dãy số nguyên A gồm N phần tử A1, A2,…, AN và hai số nguyên dương U, V (1 ≤ U ≤ V ≤ N). Hãy tìm một đoạn con liên tiếp của dãy A có tổng các phần tử đạt giá trị lớn nhất và độ dài là D tùy ý với U ≤ D ≤ V. (Độ dài của đoạn con là số lượng phần tử trên đoạn con đó).
input out
5 1
2 3 -4 3 -2 -6 5
giúp em với c++ ạ
Cho dãy số A gồm N số nguyên A1, A2, ..., AN. Dãy số Ap,...,Aq với 1≤p,q≤N được gọi là dãy con của dãy số A. Tổng giá trị các số trong một dãy con được gọi là trọng lượng của dãy con đó. Hãy tìm dãy con có trọng lượng lớn nhất của dãy số A.Dữ liệu vào là tệp văn bản dayso.inp có cấu trúc:- Dòng đầu tiên chứa số N (N≤255).- Dòng thứ hai chứa dãy số A, các số ghi cách nhau ít nhất là một ký tự trống..Dữ liệu ra là tệp văn bản dayso.out có cấu trúc như sau:- Dòng đầu tiên chứa hai số cách nh...
Đọc tiếp
Cho dãy số A gồm N số nguyên A1, A2, ..., AN. Dãy số Ap,...,Aq với 1≤p,q≤N được gọi là dãy con của dãy số A. Tổng giá trị các số trong một dãy con được gọi là trọng lượng của dãy con đó. Hãy tìm dãy con có trọng lượng lớn nhất của dãy số A.
Dữ liệu vào là tệp văn bản dayso.inp có cấu trúc:
- Dòng đầu tiên chứa số N (N≤255).
- Dòng thứ hai chứa dãy số A, các số ghi cách nhau ít nhất là một ký tự trống..
Dữ liệu ra là tệp văn bản dayso.out có cấu trúc như sau:
- Dòng đầu tiên chứa hai số cách nhau ít nhất một ký tự trống là chỉ số của số đầu và số cuối của dãy con tìm được.
- Dòng thứ hai chứa trọng lượng của dãy con tìm được.
giúp mình với
Cho dãy A gồm N số nguyên A1,A2...An. Có bao nhiêu phần tử có giá trị nhỏ nhất trong dãy A. Đưa kết quả ra màn hình.
Ai giúp tôi với, tôi xin cảm ơn
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
i,n,min,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
dem:=0;
for i:=1 to n do
if min=a[i] then inc(dem);
writeln('So phan tu co gia tri nho nhat trong day la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
Mọi người làm nhanh hộ ạ, em đang cần gấp ạ, phiền mọi người ạ
Đúng 0
Bình luận (0)
Cho dãy A gồm N số nguyên A1,A2...An. Có bao nhiêu phần tử có giá trị nhỏ nhất trong dãy A. Đưa kết quả ra màn hình.
Ai giúp tôi với, tôi xin cảm ơn
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
i,n,min,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
dem:=0;
for i:=1 to n do
if min=a[i] then inc(dem);
writeln('So phan tu co gia tri nho nhat trong day la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)