Pascal Resolvido!

[ucastro]

Tem um exercício que pede a seguinte questão:

Ler duas matrizes A e B, cada uma com uma dimensao para 12 elementos. Construir uma matriz C de duas dimensoes.

A primeira coluna da matriz C deve ser formada pelos elementos da matriz A multiplicados por 2 e a segunda coluna deve ser formada

pelos elementos da matriz B subtraidos de 5.

Fiz mas só consigo que funcione a segunda colu

na onde os números devem ser subtraídos por 5, a primeira nem aparece. Veja o resultado:

Escreva 12 números 1
Escreva 12 números 2
Escreva 12 números 3
Escreva 12 números 4
Escreva 12 números 5
Escreva 12 números 6
Escreva 12 números 7
Escreva 12 números 8
Escreva 12 números 9
Escreva 12 números 10
Escreva 12 números 11
Escreva 12 números 12
Escreva mais 12 números 1
Escreva mais 12 números 2
Escreva mais 12 números 3
Escreva mais 12 números 4
Escreva mais 12 números 5
Escreva mais 12 números 6
Escreva mais 12 números 7
Escreva mais 12 números 8
Escreva mais 12 números 9
Escreva mais 12 números 10
Escreva mais 12 números 11
Escreva mais 12 números 12
Os primeiros 12 números serão multiplicados por 2, e os últimos 12 números subtraidos por 5 
-4-3-2-101234567

Observação: Vejam que só aparece os resultados da segunda coluna, não sei onde está o erro. O algoritmo:

program operacao;
uses crt;
var
A,B:array[1..12]of integer;
C:array[1..12,1..2]of integer;
I,J:integer;
begin
clrscr;
for I:=1 to 12 do
begin
Write('Escreva 12 números ');readln(A[I]);
end;
for I:=1 to 12 do
begin
Write('Escreva mais 12 números ');readln(B[I]);
end;
begin
For J:=1 to 2 do
For I:=1 to 12 do
if J=1 then
C[I,J]:=A[I]*2
else
C[I,J]:=B[I]-5;
end;
writeln('Os primeiros 12 números serão multiplicados por 2, e os últimos 12 números subtraidos por 5 ');
for I:=1 to 12 do
write(C[I,J]);
end.

Editado Fevereiro 17, 2008 por ucastro

[Jhonas]

program operacao;
uses crt;
var
A,B:array[1..12]of integer;
C:array[1..12,1..2]of integer; 
I,J:integer;
begin
clrscr;
for I:=1 to 12 do
begin
Write('Escreva 12 números ');readln(A[I]);
end;
for I:=1 to 12 do
begin
Write('Escreva mais 12 números ');readln(B[I]);
end;
begin
For I:=1 to 12 do
C[I,1]:=A[I]*2
C[I,2]:=B[I]-5;
end;
writeln('Os primeiros 12 números serão multiplicados por 2, e os últimos 12 números subtraidos por 5 ');
for I:=1 to 12 do
write(C[I,1]) + '       ' + write(C[I,2]);
end.

OBS: não me lembro se o comando é assim ... (write(C[i,1]) + ' ' + write(C[i,2]);

) mas o resultado é este:

2 -4

4 -3

6 -2

8 -1

10 0

12 1

14 2

16 3

18 4

20 5

22 6

24 7

abraço

[ucastro]

Obrigado novamente Jhonas.

Seguindo sua dica ficou beleza.

writeln('Os primeiros 12 números serão multiplicados por 2, e os últimos 12 números subtraídos por 5 ');
for I:=1 to 12 do
writeln(C[I,1]),  '   ' , (C[I,2]);
end.

2 -4 4 -3 6 -2 8 -1 10 0 12 1 14 2 16 3 18 4 20 5 22 6 24 7