[super_eman]

Hola estimados foristas!!!
Necesito con suma urgencia que me ayuden con estos problemas... rindo este viernes y siento que me falta una mano con los procedimientos y funciones.

Escriba un programa en lenguaje Pascal que conste de las siguientes partes:
1.  Un procedimiento que genere una matriz de tamaño m × n, siendo m y n datos ingresados por el
usuario, de manera que los elementos de dicha matriz sean 0 o 1, elegidos aleatoriamente.
2.  Un función que decida si hay dos columnas en la matriz que son iguales.
3.  Un procedimiento que emita la posición de la columna con mayor cantidad de unos. Si hay más de
una columna con mayor cantidad de unos, emitir la posición de cualquiera de ellas.

Muchas Gracias!!!

[super_eman]

Hola Estimados foristas!!
Me salio el inciso 1? ahora me falta los otros dos cualquier ayuda agradecido.

Código: [Seleccionar]

program matriz(input,output);

const
  maxf=100;
  maxc=100;
type numerosale=array[1..maxf,1..maxc] of integer;

var i,j,filas, columnas: integer;
    a: numerosale;

procedure matrizmxn(m:integer;n:integer);
begin
(*genera la matriz de 0 y 1*)
 randomize;
 for i:=1 to m do begin
 for j:=1 to n do begin
 a[i,j]:= random(2)
  end
 end
end;

procedure escribirmatrizmxn(m:integer;n:integer);
begin
 for i:=1 to m do begin
 for j:=1 to n do
 write(a[i,j]:4);
 writeln
 end;
end;

begin
 writeln('Ingrese la cantidad de filas de la matriz');
 readln(filas);
 writeln(' ahora de columnas');
 readln(columnas);
 writeln;
 matrizmxn(filas,columnas);
 escribirmatrizmxn(filas,columnas);
 writeln;
 writeln('** Fin **')
end.