Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình số lượng các số hạng dương liên tiếp có tổng lớn nhất.

1038382396500471

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

Maii

program oken;
uses crt;
var a: array [1..100] of integer;
n,i,dem,s:longint;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
s:=0; dem:=0;
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
if (a[i]>=0) then
begin
dem:=dem+1;
s:=s+a[i];
end;
end;
writeln('Co ',dem,' phan tu duong trong day.');
writeln('Tong ',dem,' phan tu duong trong day: ',s);
readln;
end.

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

river_autumn

uses crt;
var i,j,tong,max,n,ton:longint; a:array[1..10000]of longint;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
i:=0;
repeat
inc(i); j:=i; tong:=0;
while (j<=n)and(a[j]>0) do begin inc(tong,a[j]); inc(j); end;
if tong>ton then begin max:=j-i; ton:=tong; end;
i:=j;
until i>=n;
writeln('So luong so duong lien tiep co tong lon nhat la: ',max);
readln
end.

////////////////////////////////////////////////

Một số text cho bạn tham khảo:

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

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

Viết cho mình một đoạn văn bằng Tiếng anh nói về ngôi nhà ước mơ

Cùng một lúc từ hai địa điểm cách nhau 20km trên cùng một đường thẳng có hai xe khởi hành chạy cùng chiều. Sau 2 giờ xe chạy nhanh đuổii kịp xe chạy chậm. Biết 1 xe có vận tốc v1=30km/h a) Lập Công thức vị trí của 2 xe vào thời điểm t kể từ lúc hai xe gặp nhau. b) Tìm vận tốc xe ? c) Tính quãng đường mỗi xe đi được từ lúc gặp nhau P/s: Các bạn vẽ hình đầy đủ mỗi câu . Mình câu trả lời hay nhất sẽ thuộc về bạn.

Phân tích thành nhân tử 3x^2+5x+2

ai giải giúp mình với mình cần gấp ạ

vẽ lại cho mình anime cổ trang nha (nam càng tốt) Lưu ý: NHƯỜNG MÍ THÍM VẼ ĐẸP nhennn ><

1/3-2/5×x=-1/2+2/5 làm giúp mk với

Đề 2 văn bản khi con tu hú 4 câu hỏi...

Giải hộ mình với ạ đang cần gấp

4 mũ x :2=32 giải chi tiết giúp em nha anh chị :)))

Phân tích thành nhân tử: 4x^2+5x+1

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