Một dãy tuyến tính là 1 bộ 3 có thứ tự (s1, s2, s3) thỏa mãn s2 - s1 = s3 - s2. Viết chương trình đọc vào các phần tử của mảng (ít nhất 3 phần tử). Hãy xuất ra các dãy tuyến tính tìm được và cho biết có bao nhiêu dãy tuyến tính
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
XT
28 tháng 2 2016
Dãy số S3 và S2 là dãy số có chứa chữ số 1000.Vì:
Dãy S1 là dãy số lẻ mà 1000 là số chẵn nên dãy S1 không có.
Dãy S2 là dãy số chẵn và mỗi số cách nhau 4 đơn vị:1000:4=250,nên dãy S2 có chữ số 1000
Dãy S3 là dãy cách nhau 8 đơn vị mà:1000:8=125,nên dãy số S3 là dãy có chứa chữ số 1000
Dãy S4 chách nhau 16 đơn vị mà 1000 không chia hết cho 16 nên dãy S4 sẽ không có chữ số 1000.
Đáp Số:dãy số S2 và dãy số S3.
HN
0
30 tháng 10 2021
uses crt;
var a:array[1..50]of int64;
i,n,t,max,min:int64;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
min:=a[1];
t:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
t:=t+a[i];
end;
writeln('Tong la: ',t);
writeln('So lon nhat la: ',max);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=max then write(i:4);
writeln;
writeln('So nho nhat la: ',min);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=min then write(i:4);
readln;
end.
