Tìm giá trị lớn nhất, nhỏ nhất, sắp xếp giá trị mảng tăng dần, giảm dần.
Những câu hỏi liên quan
NHẬP mảng A có N phần tử là số nguyên A)xuất A B)tính tổng giá trị mảng A C)tìm giá trị nhỏ nhất D)xuất giá trị mảng A theo thứ tự giảm dần Mọi người giúp em đi huhu
uses crt;
var a:array[1..100]of integer;
i,n,t,min,tam,j: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
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
//Thủ tục nhập mảng
void NhapMang(int A[], int n){
for(int i = 0; i<n ; i++)
{
printf("Phan tu %d =",i);
scanf("%d", &A[i]);
}
}
// Thủ tục xuất mảng
void XuatMang(int A[], int n){
printf("\n");
for(int i = 0; i<n ; i++)
{
printf("%d\t",A[i]);
}
}
Đúng 0
Bình luận (0)
Bài 1 nhập một mảnh vẽ số bất kì từ bàn phím a in ra tổng dãy số đó b in ra giá trị lớn nhất, nhỏ nhất của dãy c sắp xếp dãy theo thứ tự tăng dần
Cho dãy số A gồm N phần tử không sắp xếp theo thứ tự. Viết chương trình tính tổng các phẩn tử của dãy số, tìm phần tử có giá trị lớn nhất trong mảng, phẩn tử có giá trị nhỏ nhất trong mảng và vị trí xuất hiện của nó. Sắp xếp dãy số lại theo thứ tự tăng dần. Biết 0<N≤50.
uses crt;
var a:array[1..50]of int64;
i,n,t,max,min:int64;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
min:=a[1];
t:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
t:=t+a[i];
end;
writeln('Tong la: ',t);
writeln('So lon nhat la: ',max);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=max then write(i:4);
writeln;
writeln('So nho nhat la: ',min);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=min then write(i:4);
readln;
end.
Đúng 1
Bình luận (0)
Điền từ thích hợp vào chỗ trống.
-Sắp xếp dữ liệu là....các hàng của bảng dữ liệu để giá trị dữ liệu trong một hay nhiều cột được sắp xếp theo thứ tự tăng dần hay giảm dần.
- Lọc dữ liệu là...và...các hàng thoả mãn các tiêu chuẩn nhất định nào đó.
Xem chi tiết
Giúp em với ạ
Nhập n số thực từ bàn phím là phần tử của 1 mảng , sắp xếp dãy số theo thứ tự giảm dần . Xuất giá trị phần tử mảng lên màn hình
n = int(input("Nhap so luong phan tu: "))
arr = []
for i in range(n):
x = float(input("Nhap phan tu thu {}: ".format(i+1)))
arr.append(x)
arr.sort(reverse=True)
print("Mang da sap xep giam dan: ", arr)
Đúng 0
Bình luận (0)
1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.
2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.
3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?
1.
Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.
2.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.
3.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;
Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.
Đúng 0
Bình luận (0)
câu 1 tham khảo cái này nhé
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
Readln;
End.
Đúng 0
Bình luận (0)
a) Viết chương trình nhập vào mảng gồm N số nguyên và số nguyên k. Tìm và đưa ra màn hình:
b) Giá trị lớn nhất của mảng, vị trí lớn nhất đó.
c) Giá trị nhỏ nhất của mảng, vị trí lớn nhất đó.
d) Tính tổng bình phương các giá trị ở vị trị chẵn.
e) Sắp xếp mảng theo thứ tự tăng dần.
f) Đếm xem trong mảng có bao nhiêu giá trị bằng k.
uses crt;
var a:array[1..100]of integer;
i,n,k,max,min,t,tam,j,dem:integer;
begin
clrscr;
{----------------------------------cau-a--------------------------------}
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap k='); readln(k);
{----------------------------------cau-b--------------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('gia tri lon nhat cua mang la: ',max);
writeln('vi tri cua no trong day la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
{----------------------------------cau-c--------------------------------}
writeln;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('gia tri nho nhat cua mang la: ',min);
writeln('vi tri cua no trong day la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
{----------------------------------cau-d--------------------------------}
writeln;
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+sqr(a[i]);
writeln('tong binh phuong cac phan tu o vi tri chan la: ',t);
{----------------------------------cau-e--------------------------------}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('mang duoc xep theo thu tu tang dan la: ');
for i:=1 to n do
write(a[i]:4);
{----------------------------------cau-f--------------------------------}
writeln;
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
writeln('trong mang co ',dem,' gia tri bang ',k);
readln;
end.
Câu 1:tìm x nguyên để các biểu thức sau đạt giá trị nhỏ nhất:
a) A =( x -1)2 +2008 ;b) B =l x +4 l +1996
Câu 2:tìm x nguyên để các biểu thức sau đạt giá trị lớn nhất:
a) P =2010-(x + 1)2008 ;b) Q =1010-l3 - xl
Câu 3:Sắp xếp các phân số sau theo thứ tự tăng dần:
1/3;1/5;-2/15;1/6;-2/-5;-1/10;4/15.
Kết quả của 11 lần đo được thống kê trong mẫu số liệu sau:
2 5 16 8 7 9 10 12 14 11 6 (1)
a) Tìm hiệu giữa số đo lớn nhất và số đo nhỏ nhất.
b) Sắp xếp các số liệu của mẫu (1) theo thứ tự tăng dần. Tìm các giá trị \({Q_1},{Q_2},{Q_3}\) là tứ phân vị của mẫu đó. Sau đó, tìm hiệu \({Q_3} - {Q_1}\)
a) Trong mẫu số liệu (1), hiệu giữa số đo lớn nhất và số đo nhỏ nhất là
\(R = {x_{\max }} - {x_{\min }} = 16 - 14 = 2\)
b) +) Sắp xếp các số liệu của mẫu (1) theo thứ tự tăng dần, ta được:
2 5 6 7 8 9 10 11 12 14 16
+) Vậy \({Q_1}{\rm{ }} = 6;{\rm{ }}{Q_2}{\rm{ }} = {\rm{ }}9;{\rm{ }}{Q_3}{\rm{ }} = {\rm{ }}12\) . Suy ra \({Q_3} - {Q_1}{\rm{ = }}12{\rm{ }} - 6 = 6\)
Đúng 0
Bình luận (0)