Questão 550038

Com base no algoritmo abaixo, responda às questões 24 e 25.

Algoritmo

declare MAT[1 : 3, 1:4] numérico

declare I, J S, T, A numérico

T \(\leftarrow\) 0

leia MAT[1, 1] ... MAT[3, 4]

I \(\leftarrow\) 1

repita

se I > 3

então interrompa

fim se

S \(\leftarrow\) 0

J \(\leftarrow\) 1

A \(\leftarrow\) 1

repita

se J > 4

então interrompa

fim se

se I > J

A \(\leftarrow\) -1

fim se

S \(\leftarrow\) S + A x MAT [I, J]

J \(\leftarrow\) J +1

fim repita

T \(\leftarrow\) T + S

I \(\leftarrow\) I + 1

fim repita

escreva T

fim algoritmo

A linha “se I > 3” pode ser implementada em Delphi 6.0 através do código: