Pascal/Turbo Pascal - Ayuda con un ejercicio [ARRAY]

   
Vista:
Imágen de perfil de Francisco

Ayuda con un ejercicio [ARRAY]

Publicado por Francisco (9 intervenciones) el 04/08/2015 00:26:17
Buenas tardes, me podrían ayudar con este ejercicio?

Se dispone de un conjunto de 10 números enteros. Se pide modificar ese conjunto de
la siguiente forma: si el último número leído es par, cambiar por cero los números
contenidos en las posiciones par del conjunto; si el último número leído es impar,
cambiar por cero los números contenidos en las posiciones impar del conjunto.
Mostrar el conjunto modificado.

Gracias!
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

Ayuda con un ejercicio [ARRAY]

Publicado por dario (40 intervenciones) el 04/08/2015 06:59:20
Aqui una solucion.

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
uses crt;
var
    v:array[1..10] of integer;
    i:byte;
begin
    clrscr;
    {Rellenando el array con numeros}
    for i:=1 to 10 do
    begin
        write('Ingrese numero ',i,': ');
        readln(v[i])
    end;
 
    writeln('Conjunto inicial:');
    for i:=1 to 10 do
        write(v[i],' ');
 
    {Si el ultimo elemento es par, cambiar con ceros}
    {todos los elementos en las posiciones pares}
    writeln;
    writeln('Conjunto resultante:');
    if v[10] mod 2 = 0 then
    begin
        for i:=1 to 10 do begin
            if i mod 2 = 0 then
                v[i] := 0;
            write(v[i],' ');
        end
    end
    {Caso contrario cambiar con ceros los elementos}
    {en las posiciones impares}
    else
    begin
        for i:=1 to 10 do
        begin
            if i mod 2 <> 0 then
                v[i]:=0;
            write(v[i],' ');
        end
    end;
    readkey;
end.
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
Imágen de perfil de Francisco

Ayuda con un ejercicio [ARRAY]

Publicado por Francisco (9 intervenciones) el 04/08/2015 19:10:13
Muchas gracias!
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