Duvidas Programação Pascal

[igazevedo]

Olá pessoal estou com duvidas na montagem do program abaixo. A pergunta é

Escreva um programa que leia os valores de uma matriz com 10 linhas e 10 colunas.

Os valores devem ser INTEIROS, e serão lidos linha a linha, ou seja:

leia todos os valores da 1ª linha,

depois todos os valores da 2ª linha,

depois todos os valores da 3ª linha,

e assim por diante.

Seu programa deverá imprimir os valores mínimo e máximo de cada linha, da 1ª à última linha,

seguindo-se uma linha em branco,

e em seguida imprimir os valores mínimos e máximos de cada coluna, da 1ª à última coluna.

Os valores não são necessariamente distintos: o valor mínimo de uma linha ou coluna pode estar duplicado,

o que não interfere na execução do programa. O mesmo vale para o valor máximo.

Na saída, deveremos ter os dois valores de cada linha e de cada coluna na mesma linha da tela.

Ou seja, a saída do seu programa deve ter 21 linhas:

10 linhas para as linhas da matriz,

uma linha em branco, e mais

10 linhas para as colunas da matriz

Observe o exemplo abaixo, gerado por uma matriz 5×5.

12 -1 -3 4 9800

35 350 350 -3500 -3500

-3 -5 0 -1 2

0 1 2 3 4

13 13 13 13 13

Assuma que todos os valores têm no máximo 4 dígitos, e podem ser negativos. Desta forma, todos os

valores pode ser impressos utilizando-se cinco caracteres.

Portanto, imprima todos os valores alinhados a direita, especificando o valor 5 como o tamanho do campo:

write(valor:5); ou writeln(valor:5);

A saída gerada pelo seu programa deve SEGUIR ESTRITAMENTE O FORMATO ABAIXO.

Linha 1 – Valor minimo: -3 Valor maximo: 9800

Linha 2 – Valor minimo: -3500 Valor maximo: 350

...

Linha 5 – Valor minimo: 13 Valor maximo: 13

Coluna 1 – Valor minimo: -3 Valor maximo: 35

Coluna 2 – Valor minimo: -5 Valor maximo: 350

...

Coluna 5 – Valor minimo: xxxxx Valor maximo: xxxxx

==========================================================

Programa

Program Pzim ;

const

max=2;

 var

 mat: array [1..max,1..max] of integer;
 a,i,j,valor: integer;

 Begin

 for i:= 1 to max do
  for j:= 1 to max do

 begin

 write('INFORME O VALOR DA [',i,',',j,']: ');
 readln(mat[i,j]);

 end;

 if(mat[1,1]>mat[1,max])then 

{problemas na resolução a seguir}

[Samuk514]

Vê se é desse jeito que você quer.

Program FPC;
Uses Crt;
const
  max=2;
var
  mat:array [1..max,1..max] of integer;
  maior,menor:array[1..max] of integer;
  i,j:integer;
Begin
  clrscr;
  for i:=1 to max do maior[i]:=0;
  for i:=1 to max do
    for j:=1 to max do
    begin
      write('INFORME O VALOR DA [',i,',',j,']: ');
      readln(mat[i,j]);
      if j=1 then menor[i]:=mat[i,j];
      if menor[i]>mat[i,j] then menor[i]:=mat[i,j];
      if maior[i]<mat[i,j] then maior[i]:=mat[i,j];
    end;
  clrscr;
  for i:=1 to max do
  writeln('Linha ',i:5,' - Valor minimo: ',menor[i]:5,' Valor maximo: ',maior[i]:5);
  readkey;
End.

[igazevedo]

Faltou a parte da coluna !