Pasar arrays a un procedimiento o función
Publicado por Marcelo (7 intervenciones) el 26/02/2017 12:34:24
Hola , tengo que sumar dos array en un procedimiento o en una función. Yo hice esto y no sale.
Gracias ¡¡¡
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
35
36
37
Program p0015ja; // Funcion que suma dos arrays
uses crt;
type vector= array[1..30] of integer;
var
a,b: vector;
i,j,p: integer;
Function suma(n1,n2: vector): vector;
begin
For i:= 1 to 30 do
begin
suma[p]:= n1[i] + n2[j];
Write(' ', suma[p]);
end;
end;
Begin
clrscr;
Randomize;
Writeln ('Ingreso de datos');
Writeln;
For i:= 1 to 30 do
begin
a[i]:= random(10);
write(' ',a[i]);
end;
Writeln;
Writeln;
For j:= 1 to 30 do
begin
b[j]:= random(10);
write(' ',b[j]);
end;
Writeln (' La suma de los arrays: ',suma(a,b)); //Acá me marca error ¡¡¡¡¡¡
Readkey;
End.Gracias ¡¡¡
Valora esta pregunta
0