Exercício 10 Matriz - Pascal

10) Gerar automaticamente (sem ler do usuário) uma matriz 5 x 5 cujos elementos são:

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

Program matriz10;
var
matriz:array[1..5,1..5] of integer;
cont,i,j:integer;
Begin
    for i := 1 to 5 do
    for j := 1 to 5 do
        Begin                    
            cont:= cont + 1;
            matriz[i,j]:=cont;        
        End;    
        
    for i := 1 to 5 do
        Begin
        for j := 1 to 5 do
            Begin
                Write(matriz[i,j],' ');
            End;
        Writeln;
        End;            
End.

Categories: Pascal , Programação