no compila correctamente
Publicado por reinel arteaga (7 intervenciones) el 22/04/2017 15:45:32
necesito ayuda este programa no me compila correctamente por favor revisenlo
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
38
39
40
41
42
43
44
program hola;
uses crt;
type
matriz=array[1..30,1..30] of integer;
var
filas,columnas:integer;
procedure preguntar;
begin
writeln('coloque el numero de filas');
readln(filas);
writeln('coloque el numero de columnas');
readln(columnas);
end;
procedure hacermatriz(filas,columnas:integer);
var
i,j,h:integer;
begin
randomize;
for (i=1) to filas do
for (j=1) to columnas do
begin
h:=random(8);
Matriz[i,j]:=h;
write(matriz[i,j]);
end;
end;
begin
preguntar;
hacermatriz(filas,columnas);
readkey;
end.Valora esta pregunta
0
