7-6r

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Program A7_06;

Var

 f:text;

 a,kp,kn,kz:integer;

 BEGIN

  assign(f,'in7_06.txt'); reset(f);

  if IoResult<>0 then

   begin writeln('Net faila'); readln;

   exit; end;

   kp:=0; kn:=0; kz:=0;

   while(not EOF(f)) do

     begin

       readln(f,a);

       if (a>0) then INC(kp)

                else

       if (a<0) then INC(kn)

                else INC(kz);

     end;

   close(f);

 writeln('kp=',kp,'  kn=',kn,'  kz=',kz);

   readln;

 END.

// Program A7_06;

#include <iostream>

#include <fstream>

using namespace std;

int main()

{  ifstream f;

int a, kp,kn,kz;

    f.open("in7_06.txt");

  if (!f) { cout<<"net faila\n"; return -1;}

   kp=kn=kz=0;

    while(f>>a)

    {  if(a>0) kp++;

         else if(a<0) kn++;

                 else kz++;

     }

     f.close();

     cout<<"kp="<<kp<<"   kn="

        <<kn<<"  kz="<<kz<<endl;

    return 0;

}