Numero Maior

[Alex soares 0]

Gostaria de ver se alguem poderia me ajudar com um probleminha?

 

 

Bom o que gostaria de saber como coloco 21 numeros num array e depois dininuo sempre o segundo pelo primeiro, exemplo:

 

2-1

3-2

4-3

5-4

6-5

7-6

8-7

9-8

10-9

11-10

12-11

13-12

14-13

15-14

16-15

17-16

18-17

19-18

20-19

21-20

ob: naum e 2-1 e sim o valor que sera guardado dentro do array de 21 posicoes.

 

Entaum gostaria de saber dessas subtracoes todas qual e o maior resultado e armazenar isso em um label?

 

Se puderem me ajudar ficarei muito grato!!!... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

[shinoob 0]

acho q seria algo como

 

for i := 0 to 21 do

begin

valor := array - array[i - 1];

 

if valor < valor_menor then

valor_menor := valor;

end;

 

lblMenor.Caption := IntToStr( valor_menor );