👤

De.la.tastatura.se.introduce.un.numar.natural.n.apoi.anul.nasterii.a.n.persoane.Cite.persoane.au.virsta.mai.mica.de.20de.ani?(sa/se.scrie.un.program.in.pascal)

Răspuns :

eu til fac in c++.....nu stiu in pascal

int n=0,i,x;
f>>n;
for(i=1;i<=n;i++)
   { f>>x;
     if(2016-x)
          nr++;
   }
g<<nr;




După ce declari variabilele n,c,i,t faci așa:
readln(n);
c := 0;
for i := 1 to n do
begin
  readln(t);
  if(2016-t<20) c:=c+1;
end

writeln(c);