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;
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);
readln(n);
c := 0;
for i := 1 to n do
begin
readln(t);
if(2016-t<20) c:=c+1;
end
writeln(c);
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!