какой здесь косяк ??

[qasw]

не могу отладить про-гу помогите ))



program lsm ;
var
i, countMinus,countPlus: integer;
ar: array[1..10] of real;

begin
countPlus:=0;
countMinus:=0;

begin
writeln('vvedi mas ');
for i:=1 to 10 do
for i := 1 to 10 do
begin
if ar[i] > 0 then countPlus := countPlus +1;
if ar[i] < 0 then countMinus:= countMinus+1;
end;
if countMinus > countPlus then
for i := 1to 10 do/
ar[i] := ar[i] * (-1);

end;
writeln('mas im vid ');
writeln
end.

[XeN0N]

косяков много. От опечаток до пропущенных строк. Где вы вводите массив?

[qasw]

а можете указать где ??чего не хватает я хотябы буду знать где дописывать ))

[NSvirus]

незачем создавать 100500 тем, вам ответили в предыдущей

[XeN0N]

program lsm ;
var
i, countMinus,countPlus: integer;
ar: array[1..10] of real;

begin
countPlus:=0;
countMinus:=0;

begin
writeln('vvedi mas ');
for i:=1 to 10 do
тут должен быть ввод массива
for i := 1 to 10 do
begin
if ar[i] > 0 then countPlus := countPlus +1;
if ar[i] < 0 then countMinus:= countMinus+1;
end;
if countMinus > countPlus then
for i := 1to 10 do/ опечатки
ar[i] := ar[i] * (-1);

end;
writeln('mas im vid ');
writelnпропущена ;
end.

[qasw]

спасибо огромное ...исправлюсь ....поймите очень надо было голову ломаю второй день ))

[qasw]

а что в конце должно быть ??

[qasw]

а воть так про-га тоже не идёт что делать ??

program lsm ;
var
i, countMinus,countPlus: integer;
ar: array[1..10] of real;

begin
countPlus:=0;
countMinus:=0;
begin
writeln('vvod' );
for i:=1 to 10 do
read(ar[i]);


begin

if ar[i] > 0 then countPlus := countPlus +1;
if ar[i] < 0 then countMinus:= countMinus+1;
end;
if countMinus > countPlus then
for i := 1to 10 do
ar[i] := ar[i] * (-1);

end;
for i:=1 to 10 do
write(ar[i]:10:4);
writeln
end.


помогите пожалуста ))