Codigos Paginas Web
Enviado por Briiahn • 24 de Abril de 2015 • 1.007 Palabras (5 Páginas) • 156 Visitas
uses crt;
var vec1,vec2:array[1..20]of integer;
op,x,dat,sumvec:integer;
begin
clrscr;
while op<>3 do
begin
writeln('1.Ingreso de vectores');
writeln('2.Sumar Vectores');
writeln('3.Salir');
readln(op);
clrscr;
if op=1 then
begin
writeln('Cuantos Datos desea ingresar');
readln(dat);
for x:=1 to dat do
begin
writeln('Ingrese Datos Vector 1');
readln(vec1[x]);
end;
for x:=1 to dat do
begin
writeln('Ingrese Datos Vector 2');
readln(vec2[x]);
end;
end;
clrscr;
if op=2 then
begin
writeln('La Suma es:');
for x:=1 to dat do
begin
sumvec:=vec1[x]+vec2[x];
writeln(vec1[x],'+',vec2[x],'=',sumvec);
end;
end;
end;
readln;
end.
...