Chỉ chấp nhận 1 trong các code này: Pascal, C, C++, Python Đề bài: Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình thông tin sau : Số lượng các số hạng âm liên tiếp có tổng lớn nhất.

mydung14061994

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

minhtrangnguyen0202

Nếu có lỗi hoặc đáp án sai thì bạn nói mình để mình sửa nhé, nếu đúng thì cho mình hay nhất với. ^^

program Hello;
uses crt;
var n,i,max,d,s1:integer;
a,s:array[1..1000] of integer;
begin
clrscr;
write('n = ');
readln(n);
max:=low(integer);
for i:= 1 to n do
begin
read(a[i]);
if a[i]<0 then
s1:=s1+a[i];
if (a[i]>=0) or (i=n) then
begin
s[i]:=s1;
s1:=0;
end;
end;
for i:=1 to n do
if s[i]<0 then
begin
if (max = s[i]) then inc(d);
if (max<s[i]) then
begin
max:=s[i];
d:=1;
end;
end;
write('So luong cac so hang am co tong lon nhat la: ',d);
end.

Vote (0) Phản hồi (0) 2 năm trước

yeucbg2001

uses crt;
var i,n,s,max,j,k:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
end;
max:=low(longint);
for i:=1 to n do
begin
j:=i-1;
s:=0;
while a[j+1]<0 do
begin
inc(j); s:=s+a[j];
if s>max then begin max:=s; k:=j-i+1; end;
end;
end;
writeln(k);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giải thích tại sao về 2 cực của Trái Đất gia tốc rơi tự do tăng lên so với xích đạo. Giải thích tại sao khi ngồi trong ô tô khi thắng gấp thì người lao về trước .

fffffffddddddddddddddddddddddddddddddddddddđ

Giải giúp mình vs ạ,mình cảm ơn nhìu

Chứng minh rằng giá trị của biểu thức sau không phụ thuộc vào biến: $x^{2}$ - 2x - (3$x^{2}$ - 5x + 4) + (2$x^{2}$ - 3x + 7)

Giải cho mình bài 5 la mã này với

a) vì sao trái đất nặng ân tình Nhắc đến tên ng Hồ Chí Minh b)Bác nhớ miền nam nỗi nhớ nhà Miền nam mong bác nỗi mong cha Tìm phép hoán dụ và chỉ ra kiểu hoán dụ

lấy 3 hậu tố khiến trọng âm của từ rơi cách nó 1 âm tiết lấy 5 hậu tố ko ảnh hưởng đến vị trí trọng âm của từ Lấy 3 tiền tố ko ảnh hưởng đến vị trí trọng âm của tù

Tìm hiểu chung về chất selatonin.

Do biến đổi khí hậu vào tháng 10/2020 gây ra bão lụt lớn, làm thiệt hại nhiều tại các tỉnh miền Trung. Nhiều trường tại tỉnh Quảng Bình bị ngập và bị cuốn trôi nhiều bàn, ghế, sách vở. Nhằm giúp đỡ và động viên các em học sinh vượt qua khó khăn. Hội khuyến học của tỉnh tặng cho trường A tổng số 245 quyển sách gồm sách Toán và sách Ngữ Văn. Nhà trường đã dùng 1/2 số sách Toán và 2/3 số sách Ngữ Văn đó để phát cho các bạn học sinh có hoàn cảnh khó khăn. Biết rằng mỗi bạn nhận được một quyển sách Toán và một quyển sách Ngữ Văn. Hỏi Hội khuyến học tỉnh đã tặng cho trường A mỗi loại bao nhiêu quyển sách

tập xác định của hàm số f(x)=căn -x^2+4x

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến