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:
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.
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
0