tìm giá trị lớn nhất của 1 dãy số (đề bài chỉ yêu cầu vậy thôi. Ko cho bt là trong excel,free pascal,...)
lưu ý là trình bày vào vở ghi
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program max_min;
uses crt;
var i,n,max,min:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:3);
writeln;
max:=a[1];min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);
readln;
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.
Gọi a, b là hai số, thì tích là a x b = 2005.
khi tăng thừa số này tăng lên hai lần và tăng thừa số kia lên 5 lần thì ta có :
(a x 2) x (b x 5)
= a x b x 2 x 5
= a x b x 10
= 2005 x 10 = 20050
Vậy tích mới là 20050.
Gọi 2 số đó là a và b
Ta có:
axb=2005
Nếu gấp một số lên 2 lần và số kia lên 5 lần thì ta có:
(ax2)x(bx5)=(axb)x10=2005x10=20050
Xác định bài toán
Input: Dãy n số
Output: Max của dãy số
Ý tưởng: Sẽ sắp xếp dãy theo chiều tăng dần, rồi xuất ra số cuối cùng của dãy
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,nn;
int main()
{
cin>>n>>x;
nn=x;
for (i=1; i<n; i++)
{
cin>>x;
nn=min(nn,x);
}
cout<<nn;
return 0;
}
ngu toán khẩn cấp ơi ( mình chẳng biết gọi bạn sao nữa ), đáp án là là cột thứ 33 dòng thứ 6 nha ! Bạn bị lộn 2 cái rồi (T^T)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đề không cho biết là dãy số được nhập từ bàn phím, có bao nhiêu phần tử hay giới hạn của dãy số... nên không thể dùng pascal được nhé.
Có thể là làm trên excel. Bạn dùng hàm max nhé:
=max(giá trị 1, giá trị 2,...)
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.