Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Anhy Kiều Tuấn

Cho trước dãy số. Hãy tìm khoảng cách lớn nhất của 2 số hạng liền kề nhau của dãy.

Rapton321
15 tháng 5 2019 lúc 20:58

uses crt;
var n,i,d,max:longint;
a:array[1..1000]of integer;
begin

write('nhap do dai cua day so:');
readln(n);
max:=0;
for i:=1 to n do begin

write('nhap phan tu thu ',i,' :');
readln(a[i]);
if i>1 then
if a[i-1]>a[i]then d:=a[i-1]-a[i]
else d:=a[i]-a[i-1];
if d>max then max:=d;
end;
writeln('khoang cach lon nhat cua 2 so hang lien ke nhau cua day la:',max);
readln
end.


Các câu hỏi tương tự
khonopro
Xem chi tiết
Yến Phạm
Xem chi tiết
ytkc
Xem chi tiết
Thu Hiền
Xem chi tiết
Mon_LAK
Xem chi tiết
Lê Triệu Vy
Xem chi tiết
Gallavich
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Phạm Hải Lâm
Xem chi tiết