Одномерные массивы в Паскале.

[Zachary]

Ребят нужна помощь.
Дан массив В(10) вещественных чисел. Если максимальный элемент массива равен сумме всех элементов, кроме максимального, то отсортировать по убыванию.

[ROMA2PVT]

В чём конкретно проблема?

[ROMA2PVT]

Хоть бы книгу разок открыли.

uses
   crt;
Const
n=10;
var
  a:array[1..n] of integer;
  i:integer;
  imax:integer;
  max,sum,j,temp:integer;
begin
randomize;
writeln('Массив A: ');
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i],' ');
end;
writeln;
imax:=1;
Max:=a[1];
for i:=1 to n do
  if a[i]>a[imax] then
  begin
  max:=a[i];
  imax:=i;
  end;
writeln;
sum:=0;
writeln('MAX[',imax,']:=',max);
for i:=1 to n do
if (i<>imax) then
begin
sum:=sum+a[i];
end;
writeln;
writeln('Сумма:=',sum);
if max=sum then
begin
for i:=1 to n do
        for j:=1 to n-i do
            if a[j]<a[j+1] then
            begin
                Temp:=a[j];
                a[j]:=a[j+1];
                a[j+1]:=Temp;
            end;
            writeln;
            writeln('Отсортированный A: ');
for i:=1 to n do
begin
write(A[i],' ');
end;
end;
writeln;
end.

И массив вещественных чисел ток сделайте.

[Zachary]

ROMA2PVT, Спасибо за помощь!)

[ROMA2PVT]

Не за что.