Pascal

[NeoX_2011]

Помогите пожалуйста, вот задание:
Найти максимум и сумму положи-тельных элементов массива

y =(1+| x | ); x {7; 1; 2; -3; -1; 5; -18}

[Zer0]

Максимум - 19
Сумма - 44

type
  Arr = array[1..7] of real;

const
  X : Arr = (7,1,2,-3,-1,5,-18);

var sum,max:real; i:integer;

function Y(x:real):real;
begin
y:=abs(x)+1;
end;

begin
sum:=y(x[1]);
max:=y(x[1]);
for i:=2 to 7 do begin
sum:=sum+y(x[i]);
if y(x[i])>max then max:=y(x[i]);
end;
writeln ('Summa = ',sum:0:2);
writeln ('Max = ',max:0:2);
end.