7-8r

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

Program A7_08;

Var

 f:text;

 a,maxa,i,i1,i2:integer;

 BEGIN

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

  if IoResult<>0 then

   begin writeln('Net faila'); readln;

  exit; end;

   readln(f,maxa);

   i:=1;i1:=1;i2:=1;

   while(not EOF(f)) do

     begin

       readln(f,a);

       i:=i+1;

       if(a>maxa) then

    begin maxa:=a; i1:=i; i2:=i; end

                  else

        if (a=maxa) then i2:=i;

     end;

   close(f);

   writeln('i1=',i1,'  i2=',i2);

   readln;

 END.

// Program A7_08;

#include <iostream>

#include <fstream>

using namespace std;

int main()

{  ifstream f;

int a, maxa,i,i1,i2;

    f.open("in7_08.txt");

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

    f>>maxa;

     i=i1=i2=1;

    while(f>>a)

    {   i++;

        if(a>maxa) {maxa=a; i1=i; i2=i;}

         else if (a==maxa) i2=i;

     }

     f.close();

     cout<<"i1="<<i1<<"  i2="<<i2<<endl;

    return 0;

}