maior elemento de uma matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 9.302 ]

Download exerc03.pas




programa pra carregar uma matriz 3x3 e mostrar seu maior elemento

  



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.

Scripts recomendados

Cálculadora de décimo terceiro

intercalar dois arrays (vetores)

Calculadora de décimo terceiro salário(Lazarus)

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)

Calculadora de décimo terceiro no Lazarus


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts