Programa.dpr 497 B

123456789101112131415161718192021222324252627282930313233343536
  1. program Programa;
  2. {$APPTYPE CONSOLE}
  3. type
  4. TMatriz = array[1..3, 1..5] of Integer;
  5. var
  6. matriz: TMatriz;
  7. x, y: Integer;
  8. begin
  9. for x := 1 to 3 do
  10. begin
  11. for y := 1 to 5 do
  12. begin
  13. Write('Ingresa el valor para el elemento [', x, '][', y, ']: ');
  14. ReadLn(matriz[x, y]);
  15. end;
  16. end;
  17. WriteLn('Listado completo de la matriz');
  18. for x := 1 to 3 do
  19. begin
  20. for y := 1 to 5 do
  21. begin
  22. write(matriz[x, y], ' ');
  23. end;
  24. WriteLn;
  25. end;
  26. ReadLn;
  27. end.