begin var n:=ReadInteger(); var a:=ReadArrReal(n); var k:=a.Where((x,i)->(i>0)and(i<n-1)and (a.ElementAt(i)>a.ElementAt(i-1))and(a.ElementAt(i)>a.ElementAt(i+1))).Count; Writeln(k); end.
Пример: 9 3 -1 12 5 -17 5 2 15 -5 3
9) begin var n:=ReadInteger(); var a:=ReadArrInteger(n); var k:=a.Where((x,i)->(i<n-1)and(a.ElementAt(i)=a.ElementAt(i+1))).Count; Writeln(k); end.
Пример: 9 3 -1 -1 5 -17 5 2 2 -5 2
10) begin var n:=ReadInteger(); var a:=ReadArrInteger(n); var k:=a.Where((x,i)->(i<n-1)and(a.ElementAt(i) mod 2=0)and(a.ElementAt(i+1) mod 2=0)).Count; Writeln(k); end.
void reduce(int* m, int* n) { int a,b,c; a=*m; b=*n; // НОД a b - алгоритм Евклида do { c=a%b; a=b; b=c; } while (b>0); *m/=a; *n/=a; }
int main() { int m,n; cout<<"input m n "; cin>>m>>n; cout<<m<<"/"<<n<<" = "; reduce(&m,&n); if (n>1) cout<<m<<"/"<<n<<endl; else cout<<m<<endl; system("pause"); return 0; }
// PascalABC.NET 3.3
begin
var n:=ReadInteger();
var a:=ReadArrReal(n);
var k:=a.Where((x,i)->(i>0)and(i<n-1)and
(a.ElementAt(i)>a.ElementAt(i-1))and(a.ElementAt(i)>a.ElementAt(i+1))).Count;
Writeln(k);
end.
Пример:
9
3 -1 12 5 -17 5 2 15 -5
3
9)
begin
var n:=ReadInteger();
var a:=ReadArrInteger(n);
var k:=a.Where((x,i)->(i<n-1)and(a.ElementAt(i)=a.ElementAt(i+1))).Count;
Writeln(k);
end.
Пример:
9
3 -1 -1 5 -17 5 2 2 -5
2
10)
begin
var n:=ReadInteger();
var a:=ReadArrInteger(n);
var k:=a.Where((x,i)->(i<n-1)and(a.ElementAt(i) mod 2=0)and(a.ElementAt(i+1) mod 2=0)).Count;
Writeln(k);
end.
Пример:
10
3 0 4 5 -17 5 2 14 -5
2