Имеется файл, в котором содержится размерность массива и его элементы. Вычислить: A. количество элементов массива, меньших С;

B. сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.

Полученные результаты записать в новый файл

Pascal

Console.WriteLine("Введіть a: ");

int a = Console.ReadLine();

Console.WriteLine("Введіть b: ");

int b = Console.ReadLine();

Console.WriteLine("Введіть c: ");

int c = Console.ReadLine();

Console.WriteLine("Введіть x: ");

int x = Console.ReadLine();

Console.WriteLine("Введіть y: ");

int y = Console.ReadLine();

if(x>y){

int x = temp;

x = y;

y = temp;

}

int sum = 0;

if(a>x && a<y){

sum = sum+a;

}

if(b>x && b<y){

sum = sum+b;

}

if(c>x && c<y){

sum = sum+c;

}

Console.WriteLine("Сума");

Console.WriteLine(sum);

var x,y: integer;

var min,max: Real;

var Z: real;

var step: Real;

begin

   writeln('Введите x: ');

   readln(x);

   writeln('Введите y: ');

   readln(y);

   if x<=0 then  

   begin

   max:= x+y;

   if max<((x*y)/2) then

   begin

       max:= (x*y)/2;

       writeln('Max: ', max);

   end;

   else

   begin

   for i:=1 to 0.5 do step:=step*(x*0.5);

   min:= step;

   if(min > (x+y)/2) then  

   min:= (x+y)/2;

   writeln('Min: ', min);

   end;

   end;

end.