*Lập trình pascal. Lưu ý dùng longint. Không dùng array, dấu [ ], true fasle. Đc sử dụng while, if, for. Cảm ơn nhìu. Làm hết lun ạ 60 điểm lận đó nếu ko bị cờ đỏ nha. giúp em ah quân ơi :))

1016813135360096

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

Doanhieuhieu11

Bài 75:

program duong_chay;

uses crt;

var n,i,a,b,d,max:integer;

begin

clrscr;

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

b:=0; d:=0; max:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a);

if a>b then d:=d+1

else d:=1;

if d>max then max:=d;

b:=a;

end;

write('Do dai duong chay dai nhat la: ',max);

readln;

end.

Bài 76:

program do_dai_duong;

uses crt;

var n,i,a,d,max:integer;

begin

clrscr;

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

d:=0; max:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a);

if a>0 then d:=d+1 else d:=0;

if d>max then max:=d;

end;

write('Do dai day duong dai nhat la: ',max);

readln;

end.

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

phtuyen1975

75)

uses crt;
var i,j,n,max:longint; a:array[1..1000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
j:=i-1;
while (j<>0)and(a[j]<a[j+1]) do dec(j);
inc(j);
if i-j+1>max then max:=i-j+1;
end;
writeln('Max= ',max);
readln
end.

76)

uses crt;
var i,j,n,max:longint; a:array[1..1000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
j:=i-1;
if a[i]>0 then while (j<>0)and(a[j]>0) do dec(j);
inc(j);
if i-j+1>max then max:=i-j+1;
end;
writeln('Max= ',max);
readln
end.

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

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

Fly: là con gì ạ A:con ruồi B:con hổ C:con bò

thả một thỏi đồng khối lượng 200g được đun nóng tới 150 độ c vào một cốc nước ở 25 độ c . Sau một thời gian , nhiệt độ của thổi đồng và của nước đều bằng 32 độ c coi như chỉ có thỏi đồng và nước truyền nhiệt cho nhau . Biết nhiệt dung riêng của đồng là 380 J/kg.k và nhiệt dung riêng của nướ là 4200 J/kg.k hãy tính a)Nhiệt lượng thỏi đồng tỏa ra b) khối lượng của nước

Giải giúp mik các câu trắc nghiệm

Help me tks gấp lắm nha cần gấp

Write About A Human Activity Which Increases Pollution Viết Topic Cho Mình Vs Nha, Mình Cảm Ơn!

Vẽ , Tỉa tóc nha mọi người :33 Lưu ý : Vẽ digi + Từ 2-3 kiểu trong đó ít nhất 1 kiểu là tóc tết

8ng ta thả 1 miếng đồng khối lượng 0,5kg vào 500g nước. Miếng đồng nguội đi từ 80*C xuống 20*C. Hỏi nước nhận đc 1 nhiệt lượng bằng bao nhiêu và nóng lên thêm bao nhiêu độ.

Ủa mọi người ;-; Khi mềnh trl một câu hỏi vô tình bị sai một số thì mod cũng có thể cho cơ hội sửa sai mà nhỉ? Làm mod mà toy vô tình sai có tý đem đi xóa roiii mod vào trl? Ở đây toy ko nói bạn sai nhưng bạn cx có thể để người ta sửa chứ? Chỉ là sai một chút thôi mà? Vẽ anime khó hỉu?

Viết chương trình nhập n số nguyên dương n≤10000, các số trong phạm vi từ 0 đến 254. Tìm tập 30 giá trị số lớn hơn cả. DL vào: file B1_INP.TXT có dòng dầu là số n từ dòng kế ghi đủ n số ghi cách nhau dấu cách hoặc xuống dòng. KQ ra: giá trị vào file B1_OUT.TXT có mỗi dòng ghi 1 giá trị, số trình tự giảm dần nếu không đủ phải ghi nhận xét không đủ kết quả ở cuối cùng. BÀI 2 Viết chương trình nhập n số nguyên dương n≤10000, các số trong phạm vi từ 0 đến 254. Tìm top 30 giá trị số có số lần xuất hiện nhiều hơn cả KQ ra: ghi file có mỗi dòng ghi giá trị và số lần xuất hiện ghi cách nhau dấu cách và thứ tự giảm dần số lần xuất hiện Nếu cùng số lần xuất hiện nhưng nhiều giá trị số thì phải ghi hết các giá trị sô đó xong mới ghi tới số lần xuất hiện tất cả sẽ ghi trên 1 dòng và cách nhau 1 dấu cách. Nếu không đủ số lượng kết quả thì phải ghi nhận xét đó ở cuối cùng

Vẽ đậu mầm hạnh phúc Ngoài lề: Phải chăng Thư đã yew anh tên M......:<

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