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

[skr121]

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

[Aleksandr H.]

uses crt;
const n =10;
var a:array[1..n]of integer;
i,f:integer;
begin
clrscr;randomize;
for i:=1 to n do begin a[i]:=random(20); a[і]:=a[i]-10; write(a[i]:4) end;
writeln;
f:=n+1;
for і:=1 to n do
begin
     if (a[i]<0) then
       begin
            іf f=n+1 then f:=i
            else a[f]:=a[f]+a[i]

       end;
end;
writeln;
for і:=1 to n do write(a[i]:4);
readln;
end.

[Serge_Bliznykov]

я бы суммировал в отдельной переменной и потом явно присваивал нужном элементу.

потому что, если, вдруг, условие задачи преподаватель изменит (ну, скажем, на "заменить первый элемент массива на сумму всех отрицательных элементов"),
боюсь, что от вашего хитрого трюка с накоплением суммы в самом элементе, придётся отказаться!

p.s.
два вопроса.
1) зачем
a[i]:=-10+random(20);
разделять на два оператора?

2) чем f:=n+1 лучше, чем f:=0 ?

[Aleksandr H.]

Сообщение от Serge_Bliznykov

p.s.
два вопроса.
1) зачем
a[i]:=-10+random(20);
разделять на два оператора?

2) чем f:=n+1 лучше, чем f:=0 ?

1) хм, закон перестановки слагаемых не работает? Я всегда пользовался A[i]:=random(20)-10;, но с недавнего часа получаю ошибкуATT.jpg
2) имхо, ничем, "я художник, я так вижу"

[Serge_Bliznykov]

А Вы, вероятно, плохо посмотрели на мой пост.
Посмотрите, пожалуйста, ещё раз.
там написано:

a[i]:=-10+random(20);

никакой разницы не видите?!

закон перестановки слагаемых не работает?

такая ошибка возникает только в TurboPascale, проблема в ошибочной попытке (предсказать и) сделать результат беззнаковым, что и приводит к данной ошибке.
В других компиляторах я такого косяка не встречал.
Но "лечится" это просто - достаточно первым поместить отрицательное число, как ошибка уйдёт...

2) имхо, ничем, "я художник, я так вижу"

[Аватар]

a[i]:=random(20)-10;

Компилятор паскаля (не все компиляторы) считает, что тип всего выражения справа беззнаковый (Word) по 1-му операнду. Как только минус в результате вычислений то приходит каюк.

a[i]:=-10+random(20);

позволяет избавится от этого чудо-юдо-глюка

PS

у-у, пока сбегал покурить, Серж уже сообщил эту "новость"

[Aleksandr H.]

Сообщение от Serge_Bliznykov

А Вы, вероятно, плохо посмотрели на мой пост.
Посмотрите, пожалуйста, ещё раз.
там написано:

a[i]:=-10+random(20);

никакой разницы не видите?!

разницу вижу, поэтому и написал глупость

закон перестановки слагаемых не работает?

Serge_Bliznykov,Аватар, спасибо за подсказку.