Задана последовательность из n вещественных чисел. определить сколько среди них меньших k, больших k, равных k. с#

using system;

using system.collections.generic;

using system.linq;

using system.text;

 

namespace consoleapplication1

{

      class program

      {

              static void main(string[] args)

              {

                      //задана последовательность из n вещественных чисел. определить сколько среди них меньших k, больших k, равных k.

                      console.writeline("введи k");

                      double k = double.parse(console.;

                      console.writeline("введи n");

                      double n = double.parse(console.;

                      console.writeline("введи числа");

                      double a = 0.0, n_min = 0.0, n_rav = 0.0, n_max = 0.0;

                      for (int i = 0; i < n; i++)

                      {

                              a = double.parse(console.;

                              if (a < k)

                                      n_min++;

                              else

                              {

                                      if (a == k)

                                              n_rav++;

                                      else

                                              n_max++;

                              }

                      }

                      console.writeline("меньших k - " + n_min + ", равных - " + n_rav + ", больших - " + n_max);

                      console.readkey();

              }

      }

}

 

   

{$r+,s+,q+}  uses  sysutils;   const r=1000; type mas= array  [0..r]  of integer; var  a: mas;   en,n: integer;   x,y,z,q,w: char; function push(n: integer): string; begin   a[en]: =n;   en: =en+1;   push: ='ok'; end; function pop(): integer; begin   en: =en-1;   pop: =a[en];   a[en]: =0; end; function back(): integer; begin   back: =a[en-1]; end; function size(): integer; begin  size: =en; end; function clear(): string; begin   en: =0;   clear: ='ok'; end; function exit(): string; begin  exit: ='bye'; end; begin   en: =0;   repeat     read(x);     if x='p' then    begin       read(y);       if y='u' then      begin         read(z,q,w);         readln(n);         writeln(push(n))      end else begin         readln(z);         writeln(;       end;     end;     if x='b' then    begin       readln(y,z,q);       writeln(;     end;     if x='s' then begin       readln(y,z,q);       writeln(;     end;     if x='c' then begin       readln(y,z,q,w);       writeln(;     end;     if x='e' then begin       readln(y,z,q);       writeln(;     end;   until x='e'; end.