Cargando la página...

Vectores y matrices en turbo delphi

Por Ignacio Garcia el 17 de noviembre de 2009 en los siguientes foros:

Vectores y matrices en turbo delphi

avatar

Hola. Necesito ayuda porque nose como hacer un vector ni una matriz en delphi. He estado investigando porque tengo que hacer unos ejercicios para la facultad pero no encuentro nada para poder guiarme. Este es un ejemplo de ejercicio:

Ejercicio 1: Cargar un vector de 20 posiciones con números enteros aleatorios comprendidos entre 0 y 100. Buscar en dicho vector el mayor y el menor valor y las posiciones correspondiente a ambos y mostrar todos aquellos valores que superan el promedio.

Desde ya muchas gracias y espero una respuesta.
Ignacio.

Respuestas

1
18
noviembre
2009
avatar

Jim Unikornian

No tengo delphi aca, pero a ver

var v : array [1..20] of integer;

var i, mayor, menor, pmayor, pmenor, prom: integer;

begin

mayor := 0;

menor := 101;

pmayor := 0;

pmenor := 0;

prom := 0;

for i := 1 to 20 do

begin

  v[i] := rand(100);

  prom := prom + v[i];

  if mayor < v[i] then

  begin

    mayor := v[i];

    pmayor := i;

  end

  if menor > v[i] then

  begin

    menor := v[i];

    pmenor := i;

  end

end

prom := prom div 20;

for i := 1 to 20 do

begin

  if prom < v[i] then

     write(v[i]);

end

end


faltan algunos puntos y comas, seguramente rand y write tengan otros nombres, y otros detalles mas que te los dejo a vos (lo programé aca mismoooooooo!! jejeje)

que te sirva, saludos

Tema cerrado por inactividad mayor a 15 días