Question

Bài 1: Nhập từ bàn phím một dãy số nguyên ko âm. Hãy in ra màn hình chỉ số i nhỏ nhất sao cho tổng các phần tử từ 1 đến i lớn hơn 100.

Bài 2: Hãy viết chương trình Pascal để thực hiện các nhiệm vụ sau:

_ Nhập vào tù bàn phím 1 dãy số ko quá 30 số nguyên

_ Kiểm tra rồi cho biết dãy số vừa nhập có pải là dãy số ko giảm hay ko ? (  VD 1,2,5,5,6,8,9   là dãy số ko giảm )

 

Anh chị em bạn dì chú bác ông bà bố mẹ cậu mợ bá ơi, giúp với, cần gấp lắm, ngày kìa thi rồi.....

Answer 1

Bài 2:

uses crt;

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

i,n,kt:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

kt:=0;

for i:=1 to n-1 do 

 if a[i]>a[i+1] then kt:=1;

if kt=0 then write('Day so khong giam')

else writeln('Day so lon xon');

readln;

end.

Answer 2

Đề sai, ko phải lm nx, cô bảo ko thì vào đâu🙂