Pascal/Turbo Pascal - suma de Vectores

   
Vista:

suma de Vectores

Publicado por deivid (9 intervenciones) el 13/07/2015 00:53:31
Nesecito ayuda por fabor
Un programa que lea 2 vectores A y B de 20 elementos cada uno y multiplique el primer elemento de A con el ultimo elemento de B y luego el segundo elemento de A con el diesinuevevo de B Y asi sucesibamente y que el resultado sea impreso en un vector c.
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

suma de Vectores

Publicado por dario (20 intervenciones) el 13/07/2015 11:06:24
A ver si esto te sirve.

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
{Dados dos vectores a y b, almacenar en el vector c el producto}
{del primer elemento de a con el ultimo elemento de b, luego}
{el segundo elemento de a con el penultimo elemento de b y asi}
{sucesivamente}
uses crt;
type
	vector=array[1..20]of word;
var
	a,b,c:vector;
	i,j:integer;
begin
	clrscr;
	randomize;
 
    {llenar vector a}
	for i:=1 to 20 do
		a[i]:=random(20)+1;
 
    {llenar vector b}
    for i:=1 to 20 do
        b[i]:=random(20)+1;
 
	j:=20;
 
	for i:=1 to 20 do
	begin
		c[i]:=a[i]*b[j];
		j:=j-1;
	end;
 
	writeln('Vector c = ');
	for i:=1 to 20 do
		write(c[i],' ');
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