Используя программу ранжирования, найти сумму 3-х наибольших по модулю элементов массива: Т= (-1,2,1,1,-4,0,2,5,3,-2,1)

[sasharom97]

Проверьте пожалуйста, все ли правильно у меня написано?

uses Crt ;
var
A : array [ 1 .. 100 ] of integer ;
c : integer ;
i , j , N : ShortInt ;
begin
ClrScr ;
Write ( 'Количество элементов массива = ' ) ;
ReadLn ( N ) ;
WriteLn ( 'Ввод массива' ) ;
for i := 1 to N do
Read ( A [ i ] ) ;

A[i]:=abs(A[i]);
WriteLn ;
//Сортировка пузырьком//
for i := 1 to N - 1 do begin
for j := N downto i + 1 do begin
if A [ j ] < A [ j - 1 ]
then
begin
c := A [ j ] ; A [ j ] := A [ j - 1 ] ; A [ j - 1 ] := c ;
end ;

end;

end;
for i:=n-2 to n do writeln(A[i]);
end .