Question

Se da un tablou liniar cu n cimponente numere intregi.Determinati numarul elementelor cu valorile cuprinse intre 1 si 100.(pascal)
Urgeeent!
Dau coronita

Answer 1

program Interval;

const nmax=100;

type Tablou=array[1..nmax] of integer;

var A:Tablou;

   N, i, contor: integer;

begin

  write ('N='); read(N);

  writeLn ('dati elementele Tabloului:');

  for i:=1 to N do

       begin

         write('A[',i,']=');

         readln(A[i]);

       end;

 contor:=0;

  for i:=1 to N do

     if (A[i]>1) and (A[i]<100) then inc(contor);

  writeln(contor,' componente se afla intre 1 si 100');

end.