Question

Se considera un tablou unidimensional. Realizati un subprogram prin intermediul caruia :

Answer 1

var

 a:array of integer;
 i,n,min,max,m,nmin,nmax:integer;
 
begin

 write('Marimea: ');
 read(n);
 setlength(a,n);
 
 writeln;
 writeln('a)');
 
 for i:=0 to n-1 do
  read(a[i]);
 
 writeln;
 write('b)');
 
 for i:=0 to n-1 do
  write(a[i],' ');
  
 writeln;
 write('c)');
 
 min:=a[1];
 max:=a[2];
 
 for i:=0 to n-1 do //f) si e)
  begin
  if a[i]<min then min:=a[i];
  if a[i]>max then max:=a[i]
  end;
 
 for m:=min to max do
  for i:=0 to n-1 do
   if m=a[i] then write(a[i],' ');
   
 writeln;
 write('d)');
  
 for m:=max downto min do
  for i:=0 to n-1 do
   if m=a[i] then write(a[i],' ');
   
 writeln;
 writeln('e)',max);
 
 writeln('f)',min);
 
 for i:=0 to n-1 do //g
  if a[i]=max then inc(nmax);
  
 for i:=0 to n-1 do //h
  if a[i]=min then inc(nmin); 
  
 writeln('g)',nmax);
 
 writeln('h)',nmin);

end.