👤
STEFY24EZ
a fost răspuns

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

Răspuns :

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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari