Exercício de Matriz

[Visitante: Bisp0]

Estou com problemas para fazer este programa. Não estou conseguindo criar a matriz e por consequência fazer a soma. Se possivel, postem a resolução pra mim.

"Fazer um programa que crie uma matriz quadrada de ordem 4 formada por números inteiros gerados aleatoriamente de 1 a 200. Os valores gerados deverão ser exibidos na tela no formato de uma matriz (organizados em linhas e colunas). O programa deverá calcular a media dos elementos da diagonal principal e da diagonal secundária e exibi-los na tela também."

Até onde eu cheguei:

Program MatrizesDiagonais;

        Uses crt;

        Var
         m:array[1..4, 1..4] of integer ;
         coluna, linha, soma: integer;

        Begin
         clrscr;
         Randomize;
         for linha := 1 to 4 do
         Begin
            for coluna := 1 to 4 do
                m[linha,coluna] := random (200);
         end;
	 for linha := 1 to 4 do
         Begin
            for coluna := 1 to 4 do
	    begin
                   write (' ', m [linha, coluna], ' ' );
            end;
            writeln;
         end;
         readkey;
        end.

[Simon Viegas]

Estou com problemas para fazer este programa. Não estou conseguindo criar a matriz e por consequência fazer a soma. Se possivel, postem a resolução pra mim.

"Fazer um programa que crie uma matriz quadrada de ordem 4 formada por números inteiros gerados aleatoriamente de 1 a 200. Os valores gerados deverão ser exibidos na tela no formato de uma matriz (organizados em linhas e colunas). O programa deverá calcular a media dos elementos da diagonal principal e da diagonal secundária e exibi-los na tela também."

Até onde eu cheguei:

Program MatrizesDiagonais;

Uses crt;

Var

m:array[1..4, 1..4] of integer ;

coluna, linha, soma: integer;

Begin

clrscr;

Randomize;

for linha := 1 to 4 do

Begin

for coluna := 1 to 4 do

m[linha,coluna] := random (200);

end;

for linha := 1 to 4 do

Begin

for coluna := 1 to 4 do

begin

write (' ', m [linha, coluna], ' ' );

end;

writeln;

end;

readkey;

end.

Cara, juuuuro que não entendi a sua dúvida...

Só fiz ajustar o seu programa:

PROGRAM MatrizesDiagonais;
uses
  CRT;
var
  m       :array[1..4,1..4] of integer ;
  coluna,
  linha,
  soma    :integer;

BEGIN
ClrScr;
Randomize;
for linha:=1 to 4 do
  //begin
  for coluna:=1 to 4 do
    //m[linha,coluna]:=Random(200)+1;
    m[linha,coluna]:=Random(200)+1;
  //end;
for linha := 1 to 4 do
  begin
  for coluna:=1 to 4 do
   //begin
   //write(' ', m [linha, coluna], ' ' );
   write(m [linha, coluna]:4);
   //end;
   writeln;
   writeln;
  end;
Readkey;
END. 

Pelo que observei a matriz está sendo criada...

No aguardo

Abraços