заданные числа умножить на -5, 10.

[Flaik]

Помогите пожалуйста с задачкой.

Из четырех заданных чисел все отрицательные числа умножить на -5, а остальные умножить на 10.


Вроде сделал но, при умножении на -5 у меня получается большое число. Т.е. если -2 умножить на -5 получается 100.

[Ezhuk]

Вы бы код показали,раз сделали , или хотя бы язык.

[VIK_aka_TOR]

ну.... телепатов нету... бросьте код.. посмотрим в чем неполадки...

[Flaik]

да дело в том что препод удалил с компа мои задачи, поэтому не могу его дать=)

[VIK_aka_TOR]

удалил ваши задачи с вашего компа... уголовщина какая то...
ну... напишите заново... или вам написать все?... код то тут не не несколько сотен строк...

[Галия]

Есть мысль, что у Вас происходит так: (-2)*(-5)*10 = 100...
т.е. я хотела сказать, что отрицательные числа умножаются не только на _5, но и на 10

[VIK_aka_TOR]

Галия... отличная мыль.... возможно у вас один if идет срзуже после предыдущуго... поставьте вместо второго if else... тогда будет либо умнодаться на -5... либо на 10...

[Necare]

var
a : array [1..4] of integer;
i : integer;
begin
for i:=1 to 4 do
begin
writeln('vvedite ',i,'e chislo');
readln(a[i]);
end;
for i:=1 to 4 do begin
if a[i]<0 then a[i]:=(-5*a[i])
else a[i]:=a[i]*10;
end;
for i:=1 to 4 do
write(' ',a[i]);
end.

[Flaik]

спасибо большое=)