GIÚP MÌNH VỚI MN ƠIIIIIIIIIIIII ! Câu 7. DÃY SỐ TĂNG Một dãy số a1, a2, a3, …, an được gọi là dãy số tăng nếu thỏa m ãn điều kiện: a1 < a2 < … < an. Yêu cầu: Hãy viết chương trình kiểm tra xem dãy số đó có là dãy số tăng hay không? Nếu có thì hãy tính tổng các phần tử c

dangminhtri712

2 năm trước

GIÚP MÌNH VỚI MN ƠIIIIIIIIIIIII ! Câu 7. DÃY SỐ TĂNG Một dãy số a1, a2, a3, …, an được gọi là dãy số tăng nếu thỏa m ãn điều kiện: a1 < a2 < … < an. Yêu cầu: Hãy viết chương trình kiểm tra xem dãy số đó có là dãy số tăng hay không? Nếu có thì hãy tính tổng các phần tử có trong dãy số. Ngược lại in ra số 0. Ví dụ: DAYSO.INP 8 1 3 7 9 10 15 18 20 DAYSO.OUT La day tang Tong: 83 DAYSO.INP 10 1 3 7 9 3 16 11 58 4 1 DAYSO.OUT 0

Loga Sinh Học lớp 12

0 lượt thích 14 xem

1 trả lời

Thích Trả lời

mortos

var a:Array[1..100] of longint;

n,i:integer;

kt:boolean;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n-1 do

begin

if a[i]<a[i+1] then

kt:=true

else kt:=false;

end;

if kt=true then

begin

writeln('la day tang');

for i :=1 to n do

s:=s+a[i]

write(s);

end;

else write(0);

readln;

end.

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

2203525299959889

program bai_giai;
var f,g:text;
A:array[1..100000] of longint;
n,i,t,kt:longint;
begin
Assign(f,'DAYSO.INP'); reset(f);
Assign(g,'DAYSO.OUT'); rewrite(g);
readln(f,n);
for i:=1 to n do read(f,A[i]);
kt:=1; t:=A[1];
for i:=2 to n do
if A[i]>A[i-1] then t:=t+A[i]
else begin kt:=0; break; end;
if kt=0 then writeln(g,0)
else begin
writeln(g,'La day tang');
writeln(g,'Tong: ',t);
end;
close(f); close(g);
end.

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

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

Giúp mình câu trắc nghiệm nho nhỏ này nha, nhớ giải thích A. 0V; 4V; 4V B. 8V; 0V; 0V C. 0V; 0V; 0V D. 0V; 0V; 8V

Bài 39 c 💨💨💨💨💨💨💨💨💨💨😆💨💨💨

Đề bài : Phân tích đa thức thành nhân tử, giúp e vs ạ

cho 500 ml dung dịch NaOH 2M vào 200 ml dung dịch H2 SO4 0,1 M . tính nồng độ mol trên lít của dung dịch sau phản ứng

cho ví dụ về hai câu tình huống bầu không khí tâm lý tập thể ( dưới hình thức câu trắc nghiệm)

cho a,b,c>0 và a+b+c=3 CMR: $\sqrt[3]{a(b+2c)}$+$\sqrt[3]{b(2a+c)}$+$\sqrt[3]{c(a+2b)}$ ≤ 3$\sqrt[3]{3}$

các yếu tố cấu thành bầu không khí tâm lý? cho một vài ví dụ?

Chả hiểu sao mỗi lần toi cầm cái điện thoại lên thì anh toi lại nghĩ hoặc bảo rằng toi không học hành, lo nhắn tin với người yêu, chát chít với bạn bè lung tung :)), toi đi tìm bài tập làm thì cũng bảo thế :)) nói riết mà phát phiền luôn đấy :D. Calligraphy chữ : “ Ừm” ạ.

38b phân tích đa thức thành nhân tử 💨💨💨

giúp mk với cần rất gấp cảm ơn nhều ạ

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