Question

Se dă fișierul DATEJNT cu tabloul A[1...N] de numere naturale N<=100.Scrieți un program care numără de câte ori figurează în acest tablou elementul maxim.
Ieșire:La ecran se va afișa numărul de apariții a elementului maxim.

Answer 1

Răspuns:

program apMax;

var f:text;

   num, ap,nummax:integer;

begin

 assign(f,'DATE.IN'); reset(f);

 ap:=0; nummax:=0;

 while not eof(f) do

   begin

      read(f,num);

      if num>nummax then begin nummax:=num; ap:=1; end

      else if num=nummax then inc(ap);

   end;

 close(f);

 writeln(ap);

end.

     

Explicație: