Pascal/Turbo Pascal - Vectores en Pascal

 
Vista:

Vectores en Pascal

Publicado por Madeline (2 intervenciones) el 23/08/2016 21:36:46
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:12:34
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