👤

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.


Răspuns :

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:

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari