Подсчитать количество а) положительных, б) отрицательных, в)целых чисел среди чисел a, b, c

Const eps=1e-8; var a,b,c: real;       s1,s2,s3: integer; begin read(a); read(b); read(c); if a> 0 then s1: =s1+1; if b> 0 then s1: =s1+1; if c> 0 then s1: =s1+1; if a< 0 then s2: =s2+1; if b< 0 then s2: =s2+1; if c< 0 then s2: =s2+1; if frac(a)< eps then s3: =s3+1; if frac(b)< eps then s3: =s3+1; if frac(c)< eps then s3: =s3+1; writeln('число положительных чисел =  ',s1); writeln('число отрицательных чисел =  ',s2); writeln('число целых  чисел =  ',s3); end. /* для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. при сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */

//dev-c++ 5.11 (c) #include < stdio.h> int main(void)   {file* f;   int counter=0,pre,next,b=1;   f=fopen("input.txt","r");   fscanf(f,"%d",& pre);   if (feof(f))   b=0;   else   fscanf(f,"%d",& next);   while (f)) & & b)   {if(pre< next)     counter++;   pre=next;   fscanf(f,"%d",& next); }   if(pre< next)     counter++;   fclose(f);   f=fopen("input.txt","a");   fprintf(f,"\n%d",counter);   fclose(f);   return 0; } пример содержимого input.txt до работы программы: 12 123124124 2132134 12412 123123312 12 12345 пример содержимого input.txt после работы программы: 12 123124124 2132134 12412 123123312 12 12345 3

// pascalabc.net 3.2, сборка 1344 от 22.11.2016 // внимание! в других версиях работа не гарантируется! begin   var a: =arrrandom(15,-20,20); a.println;   a: =a.select(x-> x.isodd? x*3: x div 2).toarray; a.println end. пример -1 -2 8 8 19 -12 13 -11 -7 -10 3 5 -18 4 3 -3 -1 4 4 57 -6 39 -33 -21 -5 9 15 -9 2 9 а вот так это же самое обычно делают в const   n=15; var   a: array[1..n] of integer;   i: integer; begin   randomize;   for i: =1 to n do begin       a[i]: =random(41)-20;       write(a[i],' ')       end;   writeln;   for i: =1 to n do begin       if a[i] mod 2=0 then a[i]: =a[i] div 2       else a[i]: =a[i]*3;       write(a[i],' ')       end;   writeln end.