Jump to content


Turbth

Member Since 29/07/2009
Offline Last Active 31/07/2009, 18:30
-----

Topics I've Started

Ajuda Num Programinha Em Pascal

29/07/2009, 09:43

O programa é o seguinte:


Elaborar um programa que leia dois vetores com 10 números cada, e armazene e exiba os valores dos dois vetores num terceiro vetor.

Se alguem puder fazer ou pelo menos me dar uma dica de como fazer ficaria muito grato. Minhas tentativas não deram muito certo. Vo colocar o que eu tentei aqui em casa:

program exerc01;
uses wincrt;
var n1,n2:array[1..10]of integer;
total:array[1..20]of integer;
i,j:integer;
begin
	 writeln('Informe 10 numeros para serem colocados no 1º vetor');
	 for i:=1 to 10 do
	 readln(n1[i]);
	 writeln('Informe 10 numeros para serem colocados no 2º vetor');
	 for i:=1 to 10 do
	 readln(n2[i]);
	 clrscr;
	 for i:=1 to 20 do
	 begin
		  if (i<=10) then
		  total[i]:=n1[i];
		  for j:=11 to 20 do
		  begin 
				if (i>10)then
				total[j]:=n2[i];
		  end;
	 end;
	 for i:=1 to 20 do
	 begin
		  writeln(total[i]);
	 end;
end.


flw pessoal e muito obrigado aqueles q me ajudarem

IPB Skin By Virteq