Question

Free PASCAL

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

Answer 1

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.