Pascal/Turbo Pascal - Ayudenme, con los Arreglos, es para mañana (lunes) a primera hora ,

   
Vista:

Ayudenme, con los Arreglos, es para mañana (lunes) a primera hora ,

Publicado por RogerSk (4 intervenciones) el 04/03/2013 04:20:06
Como hago para saber el numero mayor y menor en una matriz de 4x4 introducida por teclado y tambien las posiciones que estan? el ejercicio seria asi:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program Mayor_menor_posicion_matriz;
Uses
 Crt;
Type
 arre=array[1..4,1..4] of integer;
Var
 pos,a,b:arre;
 i,j,y,x:longint;
 
 
Procedure Arrancar_variables;
Begin
 y:=0;
 x:=999999999;
 
 
End;
 
Procedure llenar_matriz;
Begin
 Clrscr;
  For i:=1 to 4 do
   For j:=1 to 4 do
    Begin
     Writeln('Valor en las posicion[',i,'-',j,']: ');
     Readln(a[i,j]);
 
     if (a[i,j])>y then
      y:=(a[i,j]);
     if (a[i,j])<x then
      x:=(a[i,j]);
 
    End;
End;
 
Procedure mostrar;
Begin
 Clrscr;
  For i:=1 to 4 do
   Begin
    For j:=1 to 4 do
     Begin
      Write(a[i,j]);
     End;
     Readln;
   End;
 Readln;
 Writeln('El numero mayor es: ',y);
 Writeln('El numero menor es: ',x);
 Readln;
 
End;
 
 
Begin
 Arrancar_variables;
 llenar_matriz;
 mostrar;
End.


Pero despues de " El numero mayor es y" deberia de decirme la posicion, ejemplo: [2-3]
Les agradezco su ayuda, es para un evaluativo, gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayudenme, con los Arreglos, es para mañana (lunes) a primera hora ,

Publicado por Roger (4 intervenciones) el 05/03/2013 04:56:46
Ya pude solucionarlo por mi mismo, era una tonteria, pero gracias de todas maneras xD
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar