-
Notifications
You must be signed in to change notification settings - Fork 0
/
vetores.pas
88 lines (81 loc) · 1.76 KB
/
vetores.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Program lista ;
var
i,k,temp, op, maior, menor:integer;
a: array[1..10] of integer;
Begin
Writeln ('Insira valores');
for i:=1 to 10 do
begin
readln (a[i]);
end;
{MENU}
Writeln ('**************Menu*************');
writeln ('+ ESCOLHA UMA OPCAO +');
writeln ('+ 1- Ordem creccente +');
writeln ('+ 2- ordem decrescente +');
writeln ('+ +');
readln (op);
Case op Of
1 : Begin
Writeln ('CRESCENTE');
(*Ordena Array em ordem crescente*)
for i:=1 to 10 do begin
for k:=i+1 to 10 do
begin
if a[i] > a[k] then begin
temp:=a[i];
a[i]:=a[k];
a[k]:=temp;
end;
end;
end;
writeln;
writeln;
writeln('REULTADO: ');
(*Mostra o resultado*)
for i:=1 to 10 do begin
write(a[i],',');
end;
writeln;
End;
2 : Begin
Writeln ('DECRESCENTE');
(*Ordena Array em ordem crescente*)
for i:=1 to 10 do begin
for k:=i+1 to 10 do
begin
if a[k] > a[i] then begin
temp:=a[i];
a[i]:=a[k];
a[k]:=temp;
end;
end;
end;
writeln;
writeln;
writeln('REULTADO: ');
(*Mostra o resultado*)
for i:=1 to 10 do begin
write(a[i],',');
end;
writeln;
End;
Else Writeln ('Opção Invalida');
End;
{MAIOR E MENOR}
maior := a[1];
menor := a[1];
For i:=1 to 10 do
Begin;
Write(a[i]);
Write(' ');
if (a[i] > maior) then
maior:= a[i];
if (a[i] < menor) then
menor:= a[i];
End;
Writeln();
Writeln('O Maior é: ',maior, ' e o Menor é: ',menor);
Writeln('');
Writeln('');
End.