Faça um programa que leia 2 vetores de 15 elementos inteiros. Armazena

[danieliangels 0]

estou sem tempo para resolve-lo, se alguem puder ajudar, ficarei grata.

[Robex 171 0]

#define tam 15int v1[tam],v2[tam],vp[tam];int i;main(){	printf("\n\n\n	   Produto entre Vetores\n\n\n");	for (i=0;i<tam;i++){		printf("	   Informe o Valor %d para o Vetor 1: ", i+1);		scanf("%d",&v1[i]);		}			printf("\n");		for (i=0;i<tam;i++){		printf("	   Informe o Valor %d para o Vetor 2: ", i+1);		scanf("%d",&v2[i]);		}			system("cls");	printf("\n\n\n	   Produto entre Vetores\n\n");	for (i=0;i<tam;i++){		vp[i]=v1[i]*v2[i];		printf("\n	   Vetor Produto: %d", vp[i]);		}			printf("\n\n\n\n\n\n\n\n\n\n");	system("pause");	}

[http://Deyvin.exe 0]

CÓDIGO FONTE: PASCALZIM

program vetor;varvetor01: array[1..15] of integer;vetor02: array[1..15] of integer;i: integer;begin //Função para ler os números dos vetores!    for i:= 1 to 15 do   begin	 writeln('Informe o ', i,'o numero do vetor01');	 readln(vetor01[i]);	 writeln('Informe o ', i,'o numero do vetor02');	 readln(vetor02[i]);   end; //função para imprimir na tela  for i:=1 to 15 do	begin	  writeln('Vetor01...Posição ', i,' numero ', vetor01[i]);	end;  for i:=1 to 15 do	begin	  writeln('Vetor02...Posição ', i,' numero ', vetor02[i]);	end;end.