Cho dãy số nguyên với N=3 và dãy số nguyên a1=4 , a2=8 , a3=5. Tìm giá trị lớn nhất của dãy số.
Cho dãy số nguyên với N=3 và dãy số nguyên a1=4, a2=6, a3=9. Tìm giá trị lớn nhất của dãy số.
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,max;
int main()
{
cin>>n;
cin>>x;
max=x;
for (i=1; i<n; i++)
{
cin>>x;
if (max<=x) max=x;
}
cout<<max;
return 0;
}
Cho dãy số gồm N số nguyên A1,A2,... An và số nguyên K. - Tìm cách chọn K phần tử liên tiếp nhau trong dãy số A sao cho tổng giá trị của chúng là lớn nhất.
Input: N=9 , K=2 và dãy số: 9 -1 9 -8 -2 -2 3 5 -8
Output: 8
( Giải thích:Có 3 cách chọn 2 phần tử liên tiếp nhau thỏa mãn điều kiện, đó là các cặp phần tử ở các vị trí: (1, 2), (2, 3), (7, 8) và tổng giá trị của các phần tử được chọn là 8.)
NHỜ MỌI NGƯỜI GIÚP ĐỠ Ạ. CẢM ƠN MN NHIỀU NHÉ!
Cho dãy số nguyên A : A1,A2,A3,....,An . Tìm vị trí của một số nguyên có giá trị bằng ktrong dãy A, k có giá trị nguyên cho trước (k khác 0)
#include <bits/stdc++.h>
using namespace std;
long long k,x,i,n,vt;
int main()
{
cin>>n;
cin>>k;
vt=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==k) vt=i;
}
if (vt==0) cout<<"Khong co "<<k<<" trong day";
else cout<<vt;
return 0;
}
Bài 1: Giá trị lớn nhất. Cho dãy số nguyên A=(a1, a2, …..,an), hãy cho biết giá trị lớn nhất của dãy con liên tiếp. Dữ liệu vào: Cho trong tệp tin văn bản SMAX.INP gồm
Dòng 1: Chứa số nguyên dương N≤107
Dòng 2: chứa n số nguyên a1, a2, …,an cách nhau ít nhất một dấu cách (Với mọi i: |ai |≤109 )
Kết quả ra: Ghi ra tệp tin văn bản SMAX.OUT là giá trị lớn nhất của dãy con liên tiếp của dãy A
Viết chương trình nhập vào N, dãy số nguyên A1, A2…An(N<=100). Tìm giá trị lớn nhất và vị trí của nó trong dãy.
n = int(input("Nhap so phan tu cua day: "))
a = [ ]
for i in range(n):
a.append(int(input("Nhap phan tu thu " + str(i+1) + ": ")))
max_value = a[0]
max_index = 0
for i in range(1, n):
if a[i] > max_value:
max_value = a[i]
max_index = i
print("Gia tri lon nhat trong day la:", max_value, "tai vi tri", max_index+1)
cho dãy số nguyên a1,a2... an. Tìm giá trị lớn nhất ( giá trị nhỏ nhất ) trong dãy số nguyên
Thực sự mình ko biết làm. mn giúp mình với!!
uses crt;
var a:array[1..100]of integer;
i,n,ln,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
ln:=a[1];
nn:=a[1];
for i:=1 to n do
begin
if ln<a[i] then ln:=a[i];
if nn>a[i] then nn:=a[i];
end;
writeln(ln);
writeln(nn);
readln;
end.
Input: dãy số nguyên gồm n số được nhập từ bạn phím
Output: số lớn nhất, bé nhất trong dãy
B1: nhập dãy số nguyên
B2: gán max:=a[1]; min:=a[1]
B3: nếu max<a[i] thì max:=a[i]; min>a[i] then min:=a[i]
B4: in kết quả ra màn hình
Bài 1. Cho dãy số nguyên N và dãy a1, a2, a3, .., an (0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa phần tử x và xuất mảng sau khi xóa.
Bài 2. Cho dãy số nguyên N và dãy a1, a2, a3, …, an(0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa các phần tử trùng nhau chỉ giữ lại một phần tử và xuất mảng sau khi xóa.
Ai đó giúp mình 2 bài này theo pascal với được ko? Mình thật sự không biết làm :(( Ai đó giúp mình 2 bài này theo pascal với được ko? Mình xin cảm ơn nhiều!!
Bài 1:
uses crt;
var a:array[1..1000000]of longint;
i,n,x:longint;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
for i:=1 to n do
if a[i]<>x then write(a[i]:4);
readln;
end.