Se dă:
1) var a: array [1..n] of integer ;
n :byte; (pentru n<=100)
2) de citit n şi a;
3) de scris elementele tabloului a;
4) de determinat daca sunt elemente consecutive pare in tablou, si de raspuns 'da' sau 'nu'
5) de determinat daca elementele lui a sunt in ordine crescatoare
6) daca nu sunt in ordine crescatoare, atunci de aranjat in ordine descrescatoare
7) daca elementele sunt in ordine crescatoare, de inversat tabloul
Voi scrie doar pentru 1-4 mai apoi e prea mult pentru un program.(si nu prea stiu mai departe)
Program p1;
Var i,n:byte;a:array[1..n] of integer;
Begin
Readln(n);
For i:=1 to n do readln(a[i]);
For i:=2 to n do if (a[i]=a[i-1]+2) and
(a[i] mod 2=0) then writeln('Da')
else writeln('Nu');
End.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!
