Programa para calcular a soma dos elemntos da diagonal principal d euma matriz 2x2

• Download exerc05.pas
• Enviar nova versão

Esconder código-fonte

PROGRAM EXERCICIO5;

USES CRT;

VAR
  MATRIZ: ARRAY[1..2,1..2] OF REAL;
  LINHA, COLUNA: INTEGER;
  SOMA:REAL;

BEGIN
  CLRSCR;

  SOMA:=0;

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

      IF LINHA=COLUNA THEN
        SOMA:= SOMA+MATRIZ[LINHA,COLUNA];

    END;
  END;

  WRITELN;

  WRITELN('A SOMA DA DIAGONAL PRINCIPAL DA MATRIZ �: ',SOMA:2:3);

  READKEY;

END.

Cronômetro feito no Lazarus(Delphi 7 para Linux)

Menu

controle de notas de um aluno com registro e array

cadastro de multiplos clientes com registro

Mostrar maior e menor