este programam carrega duas matrizes e encontra o maior numero das duas, porem tem alguns erros, só funciona pra uma matriz, talvez alguem pudesse corrigir

• Download exerc08.pas
• Enviar nova versão

Esconder código-fonte

PROGRAM EXERCICIO8;

USES CRT;

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

BEGIN
  CLRSCR;

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

  WRITELN;

  MAIOR := MATRIZ[1,1];

  FOR LINHA:= 1 TO 3 DO
    FOR COLUNA:= 1 TO 2 DO
    IF MAIOR < MATRIZ[LINHA,COLUNA] THEN
      MAIOR := MATRIZ[LINHA,COLUNA];

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

  READKEY;

END.

Gerador de Senha no Lazarus

intercalar dois arrays (vetores)

escreve os números de 1 a 9 com repeat - until

Maior e menor

Array de números aleatórios não-repetidos de um intervalo em Pascal

Nenhum coment�rio foi encontrado.