👤
Bucuresti200
a fost răspuns

În fisierul vector.in se găsesc pe prima linie un număr natural n iar pe linia următoare n nunere naturale care reprezintă componentele unui vector v. sa se scrie in fișier toate componentele vectorului v care au 2 cifre.

Răspuns :

var a:array of integer;
i,c,n,n1:integer;
t:text;

begin

assign(t,'vector.in');

reset(t);
readln(t,n);

setlength(a,n);

for i:=0 to n-1 do 
 read (t,a[i]);

close(t);

assign(t,'vector.in');

rewrite(t);

for i:=0 to n-1 do begin

 n1:=a[i];
 c:=0;
 
 while n1<>0 do begin
  n1:=n1 div 10;
  inc(c);
  end;
  
 if c=2 then write(t,a[i],' ');
 
 end;
 
close(t);

end.

Alte intrebari