Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hồ Ngọc Thi

Nhập vào một dãy n số nguyên(0<n<1000), hãy tìm khoảng cách lớn nhất giữa hai phần tử liên tiếp của dãy.

Kiều Vũ Linh
28 tháng 4 2022 lúc 8:08

Var a:array[1..1000] of integer;

i,n,max:integer;

Begin

Write('Nhap n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

max:=a[2] - a[1];

For i:=3 to n do

Begin

If a[i] - a[i-1] > max then max:=a[i]-a[i-1];

End;

Write('Khoang cach lon nhat la ',max);

Readln;

End.


Các câu hỏi tương tự
Nguyễn Công Bằng
Xem chi tiết
Nguyễn Anh Quân
Xem chi tiết
Phương Thảo
Xem chi tiết
Nguyễn Thị Thanh Trúc
Xem chi tiết
Nhi Uyển
Xem chi tiết
Trần Nguyễn Huỳnh
Xem chi tiết
Đinh Duy Thuần
Xem chi tiết
Hiếu Nguyễn
Xem chi tiết
Dung Từ
Xem chi tiết