Question

VerifProgresie

Cerința
Se dau n valori naturale. Stabiliți dacă există o progresie aritmetică cu rația număr natural mai mare decât 1 din care să facă parte toate aceste valori.

Date de intrare
Programul citește de la tastatură numărul n, iar apoi n numere naturale, separate prin spații.

Date de ieșire
Programul va afișa pe ecran mesajul DA , dacă există progresia aritmetică cerută, respectiv NU în caz contrar.

Restricții și precizări
1 ≤ n ≤ 2500
cele n numere citite vor fi mai mici decât 2.000.000.000

Answer 1

var a:array of integer;
i,b:byte;
r,n:integer;

begin
write('Numere: ');
read(n);
if (n<1) or (n>2500) then exit else
setlength(a,n);
Write('Ratia: ');
read(r);
Writeln;
Writeln('Numerele:');
for i:=0 to n-1 do read(a[i]);
for i:=0 to n-1 do i<>0 then if a[i]-a[i-1]<>r then inc(b);
writeln;
if b<>0 then writeln('NU') else writeln('DA');
end.