одномерные массива в паскале

[Кирилл17]

подсчитать сколько среди заданных элементов x1,x2... отрицательных(элементы ввести с клавиатуры) и изменить значение каждого положительного элемента путем его деления на значение последующего члена(последный элемент полагать заведомо отрицательным т.е. последний элемент должен быть отрицательным).

[Кирилл17]

program p1;
uses crt;
const n=5;
var x:array[1..n] of real;
i,a,k:integer;
begin
clrscr;

for i:=1 to n do readln(x[i]);
for i:=1 to n do begin
if x[i]>0 then x[i]:=x[i]/x[i+1];
end;
k:=0;
for i:=1 to n do begin if x[i]<0 then k:=k+1;
end;
writeln('k=',k);
writeln('vivod massiva');
for i:=1 to n do write(x[i]:5:2,' ');
readln;
end.

я написал программу только не знаю как присвоить последнему элементу отрицательное значение так, что бы прога работала

помогите

[Sazary]

Кирилл17
Насколько я понял из условия, считать отрицательные элементы нужно до изменения положительных.

не знаю как присвоить последнему элементу отрицательное значение так, что бы прога работала

Но ведь нужно:

последный элемент полагать заведомо отрицательным

Так что, если я правильно понял, программа должна выглядеть примерно так:

program p1;
uses crt;
const n=5;
var x:array[1..n] of real;
i,a,k:integer;
begin
clrscr;

for i:=1 to n do readln(x[i]);
k:=0;
if x[n]>0 then x[n]:=-x[n];
for i:=1 to n do begin if x[i]<0 then k:=k+1;
end;
for i:=1 to n do begin
if x[i]>0 then x[i]:=x[i]/x[i+1];
end;


writeln('k=',k);
writeln('vivod massiva');
for i:=1 to n do write(x[i]:5:2,' ');
readln;
end.

Если не прав - поправьте.