Helpp
Viết CT :Tìm số lớn nhất có trong dãy số
Những câu hỏi liên quan
Viết CT a) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số b) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số nguyên nhỏ nhất trong dãy số Mn giúp em vs Mà 2 câu này riêng biệt nên mong mn đừng viết chung 1 CT
a)
uses crt;
var a:array[1..100]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(max);
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var a:array[1..100]of integer;
i,n,min: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];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
2. Viết CT nhập vào dãy số nguyên có n phần tử. In ra vị trí các phần tử âm.
3. Viết CT nhập vào dãy số tự nhiên có n phần tử. In ra giá trị các phần tử ở vị trí lẻ.
4. Tìm phần tử lớn nhất và nhỏ nhất trong 1 dãy phần tử.
2:
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(i:4);
readln;
end.
Đúng 1
Bình luận (2)
sao bài này giống bài tập cô mình giao thế nhỉ:>
Đúng 2
Bình luận (0)
4
var max,min,n,i: integer;
a:array [1..100] of integer;
begin
write('nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
write('so lon nhat trong day la: ',max);writeln;
write('so nho nhat trong day la: ',min);writeln;
readln;
end.
Đúng 2
Bình luận (0)
viết ct nhập vào 1 dãy gồm n số (với n được nhập từ bàn phím).tìm giá trị lớn nhất trong dãy số vừa nhập.
Var z:array[1..1000] of longint;
n, i, max:longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
max:= z[1];
End;
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,max,dem1,dem2: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 la: ',max);
readln;
end.
Đúng 0
Bình luận (0)
Viết CT nhập vào một dãy n số nguyên, in ra số lớn nhất trong dãy
ko mảng nha
pls
uses crt;
var ln,x,i,n:integer;
begin
clrscr;
ln:=MAXINT;
readln(n);
for i:=1 to n do
begin
readln(x);
if ln<x then ln:=x;
end;
write(ln);
readln;
end.
Đúng 1
Bình luận (0)
Cho 1 số nguyên n và dãy sô nguyên a1 đến an hãy viết ct đếm xem trong dãy số đó có bao nhiêu số lớn hơn 5
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>5) dem++;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Hãy xác đinh bài toán sau: Tìm tích các số trong dãy n số tự nhiên cho trước?A. INPUT: Dãy n số tự nhiên. OUTPUT: Số lớn nhất trong dãy n số.B. INPUT: Dãy n số tự nhiên. OUTPUT: Số các số lớn nhất trong dãy n số.C. INPUT: Số lớn nhất trong dãy n số. OUTPUT: Dãy n số tự nhiên.D. INPUT: Số các số lớn nhất trong dãy n số. OUTPUT: Dãy n số tự nhiên.
Đọc tiếp
Hãy xác đinh bài toán sau: "Tìm tích các số trong dãy n số tự nhiên cho trước"?
A. INPUT: Dãy n số tự nhiên. OUTPUT: Số lớn nhất trong dãy n số.
B. INPUT: Dãy n số tự nhiên. OUTPUT: Số các số lớn nhất trong dãy n số.
C. INPUT: Số lớn nhất trong dãy n số. OUTPUT: Dãy n số tự nhiên.
D. INPUT: Số các số lớn nhất trong dãy n số. OUTPUT: Dãy n số tự nhiên.
a,cho dãy:2;4;6;8;10;12;............... tìm số hạng thứ 2014 của dãy số trên? Số hạng lớn nhất = ( số số hạng trong dãy -1 ) x khoảng cách giữa hai số hạng liên tiếp +số hạng bé nhất trong dãy.
b,tìm 2 số tự nhiên liên tiếp có tổng là 2015
c,tính bằng cách thuân tiện nhất
10000-47x7247x28
help me
a, Khoảng cách 2 số hạng liên tiếp: 4 - 2 = 6 - 4 = 8 - 6 = 10 - 8 = 12 - 10 = 2
Số hạng thứ 2014 là: (2014 - 1 ) x 2 + 2 = 2013 x 2 + 2 = 4028
b, Hai số hạng liên tiếp có hiệu là 1 đơn vị
Số bé là: (2015 - 1):2= 1007
Số lớn là: 1007 +1 =1008
Đ.số:......
Đúng 1
Bình luận (0)
Khoảng cách giữa 2 số hạng liên tiếp cách nhau:
\(4-2=2\)(đơn vị)
Vậy số hạng thứ 2014 cần tìm là:
\(\left(2014-1\right)\times2+2=4028\)
Đáp số: 4028
\(-------------\)
2 số tự nhiên liên tiếp cần tìm có tổng bằng 2015 là: \(1007\left(và\right)1008\)
Đúng 2
Bình luận (0)
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
uses crt;
var a:array[1..100]of integer;
i,n,t,max,kq,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=0;
for i:=1 to n do
begin
t:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then t:=t+j;
if max<=t then
begin
max:=t;
kq:=a[i];
end;
end;
writeln('So co tong cac uoc lon nhat trong day la: ',kq);
readln;
end.
Đúng 0
Bình luận (0)
nhập dãy gồm n số
a. Tìm số lẻ nhỏ nhất có trong dãy, không có thì xuất ' khong co'
b. Tìm số chẵn lớn hơn 7 có trong dãy.
c. In dãy số đó theo thứ tự số lẻ giảm dần, rồi đến số chẵn tăng dần.
#include <bits/stdc++.h>
using namespace std;
int A[100],B[100],C[100],kt,n,nn,dem1=0, dem2=0;
int main()
{
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
kt=0;
nn=INT_MAX;
for (int i=1; i<=n; i++)
if (A[i]%2!=0)
{
kt=1;
if (nn>=A[i]) nn=A[i];
}
if (kt==0) cout<<"khong co";
else cout<<nn;
cout<<endl;
for (int i=1; i<=n; i++)
if (A[i]%2==0 && A[i]>7)
cout<<A[i]<<" ";
cout<<endl;
for (int i=1; i<=n; i++)
if (A[i]%2!=0)
{
dem1++;
B[dem1]=A[i];
}
for (int i=1; i<=n; i++)
if (A[i]%2==0)
{
dem2++;
C[dem2]=A[i];
}
sort(B,B+dem1+1);
sort(C,C+dem2+1);
for (int i=dem1; i>=1; i--)
cout<<B[i]<<" ";
for (int i=1; i<=dem2; i++)
cout<<C[i]<<" ";
}
Đúng 1
Bình luận (0)