Bài toán: Cho một mảng số nguyên a gồm nn phần t...

Khách

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.

Mua vip

Lê Nguyễn Minh Đức

12 tháng 3 - olm

Bài toán: Cho một mảng số nguyên a gồm nn phần tử. Hãy viết một chương trình tìm cặp số trong mảng có tổng lớn nhất và in ra kết quả.

Yêu cầu:

In ra giá trị tổng lớn nhất.
In ra hai số trong mảng tạo thành tổng đó.

Ví dụ:

Input: a = [1, 7, 3, 2, 9]
Output:
- Tổng lớn nhất: 16
- Hai số là: 9 và 7

#Hỏi cộng đồng OLM #Tin học lớp 9

HÀ MINH QUANG

19 tháng 3

Đúng(1)

Nguyễn Thế Huy

24 tháng 4

Đúng(0)

Các câu hỏi dưới đây có thể giống với câu hỏi trên

Tiy FF

28 tháng 5 2021

Để tạo 1 code pascal

nhập vào một mảng gồm n phần tử , và in ra tổng các phần tử bé hơn 500

#Hỏi cộng đồng OLM #Tin học lớp 9

Minh Lệ

28 tháng 5 2021

Program HOC24;

var i,n: integer;

a: array[1..32000] of integer;

t: longint;

begin

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

begin

if a[i]<500 then t:=t+a[i];

write('Tong cac phan tu be hon 500 la: ',t);

readln

end.

Đúng(4)

Tiy FF

28 tháng 5 2021

Mn làm nhanh giúp e nha , thanks mn nhiều

Đúng(0)

KhảTâm

12 tháng 12 2020 - olm

Cho mảng số nguyên A có \(a_1,a_2,a_3,..,a_n\) và số nguyên S

a) In ra các số hoàn thiện

b)Hãy tìm một dãy con của mảng trên có tổng bằng S

c)Nhập số nguyên K từ bàn phím. Xóa phần tử tại vị trí k của mảng A

d) Sắp xếp theo thứ tự giảm dần . In ra mảng A

#Hỏi cộng đồng OLM #Tin học lớp 9

Nhật Nguyễn

11 tháng 2 2020

viết chương trình nhập vào 1 mảng a có n phần tử, n nhập từ bàn phím

a.in ra màn hình mảng được xếp theo thứ tự số dương tăng dần sau đó đến số âm tăng dần

b. in ra các dãy số liên tiếp gồm 3 số trong dãy nếu k có thì báo là không có dãy liên tiếp trong mảng

#Hỏi cộng đồng OLM #Tin học lớp 9

Nguyên Hưng Trần

7 tháng 3 2020

program Tin_hoc;

uses crt;

var n,i,j,min:integer;

a: array[1..100] of integer;

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' phan tu:');

for i:= 1 to n do begin write('a[',i,']: '); readln(a[i]) end;

for i:= 1 to n do begin

min:=a[i];

If a[i] >0 then for j:= i to n do if a[j] < a[i] then min:= a[j];

write(min,' ') end;

for i:= 1 to n do begin

min:=a[i];

If a[i] <0 then for j:= i to n do if a[j] < a[i] then min:= a[j];

write(min,' ') end;

readln;

end.

Mik ko có thời gian nên chỉ làm thử câu a

Sai thì thôi nha

Đúng(0)

Doãn Hoài Trang

29 tháng 9 2019

Nhập vào từ bàn phím số nguyên dương X và số K (1 ≤ X, K ≤ \(10^5\) ).
Xuất ra màn hình các kết qủa sau đây:
+ Dòng 1: in ra ước nguyên dương nhỏ nhất và lớn nhất của số X.
+ Dòng 2: in ra các số \(X^2\) và K-X cách nhau ít nhất một dấu cách.

#Hỏi cộng đồng OLM #Tin học lớp 9

Minh Lệ

29 tháng 9 2019

Lời giải:

program hotrotinhoc;

var max,min,i,x,k: integer;

begin

write('X='); readln(x);

write('K='); readln(k);

min:=32000; max:=0;

for i:=1 to x do if (x mod i=0) then

begin

(min>i) then min:=i;

if (max<i) then max:=i;

end;

writeln(min,' ',max);

write(sqr(x),' ',k-x);

readln

end.

Đúng(0)

Kien

15 tháng 10 2021

Viết chương trình nhập 1 mảng số nguyên dương gồm n phần tửa, in ra màn hình mảng vừa nhập (bỏ qua phần này!)b, nhập số nguyên dương k. tính tổng các số trong mảng LỚN hơn k.c, tìm kiếm các cặp 2 phần tử liên tiếp có tổng chia hết cho 10. in ra màn hình các cặp số và vị trí của nó!.d, tìm phần tử lớn nhất và số nguyên dương lớn nhất không xuất hiện trong mảng nhưng nhỏ hơn phần...

Đọc tiếp

#Hỏi cộng đồng OLM #Tin học lớp 9

An Phạm

27 tháng 4 2023

viết chương trình nhập vào A có n phần tử a,xuất và in ra màn hình b,Đếm xem mảng vừa nhập có bao nhiêu số lẻ c,Tìm số lớn nhất trong mảng vừa nhập và đưa ra màn hình

#Hỏi cộng đồng OLM #Tin học lớp 9

Kiều Vũ Linh

28 tháng 4 2023

var a:array[1..1000] of integer;

i,n,d,max:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then d:=d+1;

end;

max:=a[1];

for i:=2 to n do

if a[i] > max then max:=a[i];

writeln('Co ',d,' so le');

write('So lon nhat la ',max);

readln

end.

Đúng(0)

Thảo Phương

23 tháng 7 2018

Câu hỏi hay

Viết chương trình tính tổng và giải thích cách tìm công thức tổng quát của bài toán:

\(S=\sqrt{1+\sqrt{2+....+\sqrt{n-1+\sqrt{n}}}}\) vơi nhập từ bàn phím.

(*Kiến thức mới: SQRT(x) :\(\sqrt{x}\))

#Hỏi cộng đồng OLM #Tin học lớp 9

Hung nguyen

24 tháng 7 2018

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

write('Sai tự chịu: ',S);

readln;

end.

Đúng(0)

Hung nguyen

24 tháng 7 2018

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

writeln('Sai tự chịu: ',S);

readln;

end.

Đúng(0)

nguyễn thị tú anh

27 tháng 9 2020

1. Sắp xếp các đơn vị đo đơn vị thông tin theo thứ tự tăng dần a. Bit b. Byte c. Kilobyte d. Terabyte e. Gigabyte f. Megabyte 2. Trên một máy tính mới và chưa thực hiện các tùy chỉnh, hành động sử dụng chuột nào bạn dùng để kích hoạt một biểu tượng đã chọn? (chọn 1) Nhấp chuột Nhấn Ctrl và nhập chuột Nhấp đúp Nhấp chuột phải 3. Bằng cách nào để có thể cập...

Đọc tiếp

#Hỏi cộng đồng OLM #Tin học lớp 9

phung nguyen

8 tháng 5 2023

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số.

a, In ra màn hình các số vừa nhập ( độ dài của dãy cũng được nhập từ bàn phím)

b, Tính tổng các phần tử của dãy số

c, Tính giá trị nhỏ nhất của dãy số

d, Tìm giá trị lớn nhất của dãy số

#Hỏi cộng đồng OLM #Tin học lớp 9

Kiều Vũ Linh

9 tháng 5 2023

Var a:array:[1..1000] of real;

i,n,max,min,s:real;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

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;

Write('Cac so vua nhap la ');

for i:=1 to n do write(a[i]:10:2):

Writeln;

Writeln('Tong la ',s:10:2);

Writeln('So nho nhat la ',min:10:2);

Write('So lon nhat la ',max:10:2);

Readln

End.

Đúng(1)

Phùng Công Anh

27 tháng 5 2023

var
Mang: array[1..100] of Integer;
N, i, Tong, Min, Max: Integer;

begin
// Yêu cầu nhập độ dài của dãy số từ bàn phím
Write('Nhap do dai cua day so: ');
ReadLn(N);

// Yêu cầu nhập các phần tử của dãy từ bàn phím
for i := 1 to N do
begin
Write('Nhap phan tu thu ', i, ': ');
ReadLn(Mang[i]);
end;

// In ra màn hình các số vừa nhập
Write('Cac so vua nhap: ');
for i := 1 to N do
begin
Write(Mang[i], ' ');
end;
WriteLn;

// Tính tổng các phần tử của dãy số
Tong := 0;
for i := 1 to N do
begin
Tong := Tong + Mang[i];
end;
WriteLn('Tong cac phan tu cua day so la: ', Tong);

// Tìm giá trị nhỏ nhất của dãy số
Min := Mang[1];
for i := 2 to N do
begin
if Mang[i] < Min then
Min := Mang[i];
end;
WriteLn('Gia tri nho nhat cua day so la: ', Min);

// Tìm giá trị lớn nhất của dãy số
Max := Mang[1];
for i := 2 to N do
begin
if Mang[i] > Max then
Max := Mang[i];
end;
WriteLn('Gia tri lon nhat cua day so la: ', Max);

ReadLn;
end.

Đúng(0)

Thangzz

24 tháng 8 2020

ae cho mình code bài này nha !thanks Xác định số cách biểu diễn số nguyên dương N (N ≤ 70) thành tổng các số nguyên dương. Dữ liệu: Vào từ tập tin văn bản TONG.INP gồm số nguyên duy nhất N. Kết quả: Ghi ra tập tin văn bản TONG.OUT số duy nhất chỉ số cách biểu diễn cần tìm. Ví dụ: TONG.INP TONG.OUT 6 4 Chú thích: có 4 cách biểu diễn: 6 = 6, 6 = 5 + 1, 6 = 4 + 2, 6 = 3 + 2 + 1 ...

Đọc tiếp

#Hỏi cộng đồng OLM #Tin học lớp 9

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP