maior elemento de uma matriz

Descrição

Esconder código-fonte

PROGRAM EXERCICIO3;

USES CRT;

VAR
  MATRIZ: ARRAY[1..3,1..3] OF INTEGER;
  MAIOR, LINHA, COLUNA: INTEGER;


BEGIN
  CLRSCR;

  FOR LINHA:=1 TO 3 DO
    FOR COLUNA:=1 TO 3 DO
    BEGIN
      WRITE('DIGITE O NUMERO DA LINHA ',LINHA,', COLUNA ',COLUNA,': ');
      READLN(MATRIZ[LINHA,COLUNA]);

      IF ((LINHA=1) AND (COLUNA=1)) OR
         ((LINHA<>1) AND (MAIOR<MATRIZ[LINHA,COLUNA])) THEN
        MAIOR:= MATRIZ[LINHA,COLUNA];

    END;

  WRITELN;

  WRITELN('O MAIOR VALOR INFORMADO FOI: ',MAIOR);

  FOR LINHA:=1 TO 3 DO
    FOR COLUNA := 1 TO 3 DO
      IF MAIOR=MATRIZ[LINHA,COLUNA] THEN
        WRITELN('NA POSI€ÇO ', LINHA,'X',COLUNA);

READKEY;

END.