{Mira esto}
program diagonal;
uses
crt;
const
num = 5;
type
matriz = array[1..num,1..num] of integer;
var
matri : matriz;
vector : array[1..num] of integer;
t, h, v : integer;
procedure rellenamatriz;
var
numeros : array[1..25] of integer;
si : boolean;
begin
randomize;
for t := 1 to 25 do
begin
si := true;
h := 1;
repeat
si := true;
v := random(27) + 1;
for h := 1 to t do
begin
if numeros[h] = v then
si := false
end;
until si = true;
numeros[t] := v;
end;
v := 1;
for h := 1 to num do
for t := 1 to num do
begin
matri[t,h] := numeros[v];
v := v + 1;
end;
writeln(' La Matriz Es '); writeln;
for h := 1 to num do
begin
write(' '); for t := 1 to num do
begin
write(' ',matri[t,h]); end;
writeln;
end;
t := 1;
h := 1;
repeat
vector[t] := matri[t,h];
t := t + 1;
h := h + 1;
until t > num;
writeln;
writeln(' La Diagonal Es '); writeln;
write(' '); for t := 1 to num do
write(' ',vector[t]); writeln;
writeln;
writeln(' Pulse Una Tecla '); readkey;
end;
begin
clrscr;
rellenamatriz;
end.
Crear cuenta