Pascal/Turbo Pascal - Vectores en Pascal

 
Vista:

Vectores en Pascal

Publicado por Madeline (2 intervenciones) el 23/08/2016 21:35:54
Hola! necesito ayuda :)
"Realizar un programa que solicite el ingreso de 20 números en un vector y que muestre la suma de
aquellos que son pares."
Espero una respuesta, gracias :D
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

Vectores en Pascal

Publicado por ramon (2127 intervenciones) el 23/08/2016 23:06:50
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
{Espero esto sirva }
 
program pares;
 uses
    crt;
  var
    veztor : array[0..19] of integer;
    cont : integer;
    suma : longint;
 
   procedure entrada(var v : array of integer);
   begin
      for cont := 0 to 19 do
      begin
      write('  Entre Numero Entero En Posicion : ',cont + 1,' Num : ');
      readln(v[cont]);
      end;
    end;
 
 
    procedure sumaveztor(ss : array of integer);
    begin
       suma := 0;
       for cont := 0 to 19 do
       begin
          if ss[cont] mod 2 = 0 then
          suma := suma + ss[cont];
       end;
    end;
 
  begin
     entrada(veztor);
     sumaveztor(veztor);
     clrscr;
     writeln('   La Suma De Los Pares Es = ',suma);
     writeln;
     writeln('   Pulse Una Tecla');
     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

Vectores en Pascal

Publicado por dario (42 intervenciones) el 24/08/2016 11:49:37
Otra solucion un poco mas corta.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
    suma,i:integer;
    num:array[1..20] of integer;
begin
    clrscr;
    for i:=1 to 20 do begin
        write('Ingrese numero: ');
        readln(num[i]);
    end;
 
    suma:=0;
    for i:=1 to 20 do begin
        if num[i] mod 2 =0 then
            suma:=suma+num[i];
    end;
 
    writeln('La suma de los numeros pares es ',suma);
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