7-12r

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

Program A7_12;

Var

 f:text;

 a,b,k,s,p:integer;

 BEGIN

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

  if IoResult<>0 then

   begin writeln('Net faila');

 readln;exit; end;

   readln(f,a);

   k:=1; p:=0;

   while(not EOF(f)) do

     begin

       readln(f,b);

       if (b<a) then

          begin p:=1; break; end;

       if (b<>a) then INC(k);

       a:=b;

     end;

   close(f);

   if (p=1) then

     begin writeln('Ne vozrastaet');

   readln; exit; end;

   writeln('Krazl=',k);

   readln;

 END.

// Program A7_12;

#include <iostream>

#include <fstream>

using namespace std;

int main()

{  ifstream f;

int a,b,k=1,p=0;

    f.open("in7_12.txt");

    if (!f) { cout<<"net faila\n";

    return -1;}

    f>>a;

    while(f>>b)

    {  if(b<a){p=1; break;}

       if(b!=a) k++;

       a=b;

     }

     f.close();

     if(p==1){cout<<"ne vozrasnaet\n";

    return 0;}

     cout<<"Krazl="<<k<<endl;

    return 0;

}