Поправить программу.

[kartez25-17]

Условие: Ввести массив целых чисел B(n). Найти сумму S положительных элементов. Если S>5,поменять местами значение минимального и максимального элементов. Массив распечатать.

program pr_3;
var a:array[1..100] of real;
min,max,imin,imax,S,:real;i,n:integer;
begin
Write ('n=');
readln (n);
for i:=1 to n do
readln(a[i]);
S:=0;
for i:=1 to n do
if a[i]>0 then S:=S+a[i];
max:=-999;
min:=999;
for i:=1 to n do
if a[i]<min then
min:=a[i];
imin:=i;
if a[i]>max then
max:=a[i];
imax:=i;
if S>5 then
a[imin]:=max;
a[imax]:=min;
for i:=1 to n do
writeln ('  ',a[i]);
end.

[Stilet]

Упростим?:

program pr_3;
var a:array[1..100] of real;
min,max,imin,imax,S,:real;i,n:integer;
begin
Write ('n=');
readln (n);
S:=0; min:=1; max:=1;
for i:=1 to n do begin
 readln(a[i]);
 if a[i]>0 then S:=S+a[i];
 if a[i]>a[max] then max:=i;
 if a[i]<a[min] then min:=i;
end;
if S>5 then
 max:=a[max];
 a[max]:=a[min];
 a[min]:=max;

for i:=1 to n do
 writeln (a[i]:5);

readln;
end.

Устраивает?

[kartez25-17]

if a[i]>a[max] then max:=i;
выдаёт ошибку "нельзя преобразовать тип real к integer"
в чём проблема?

[Stilet]

А ты обьяви max как integer;
Ну и тогда при обмене другую переменку придумай.

[kartez25-17]

Можешь пожалуйста это сделать, ато у меня что-то совсем не получается