Задача на Паскале (Массив)

[FORZE2010]

Дан массив, вывести на экран новое состояние массива в котором Ко всем нулевым элементам прибавить n, ко всем отрицательным прибавить B .
Из всех положительных элементов вычисть A
Помогите решить пожалуйста

[GetMax]

Введетe массив, а дальше так

For i:=1 to KolElementov do
Begin
  If Massiv[i] = 0 then Massiv[i]:=Massiv[i]+N
  Else
  If Massiv[i] < 0 then Massiv[i]:=Massiv[i]+B
  Else
  If Massiv[i] > 0 then Massiv[i]:=Massiv[i]-A
End;
For i:=1 to KolElementov do Write(Massiv[i]:3)

[FORZE2010]

Спасибо а можно решить эту задачку другим способом?
Без KolElementov,Massiv,в конспекте примеры задач массива у меня выглядит по другому

[GetMax]

а можно решить эту задачку другим способом?

Задачку на массивы без использования массивов решить нельзя

Без KolElementov,Massiv

Ну не нравятся эти названия используй другие

в конспекте примеры задач массива у меня выглядит по другому

Ну а я конечно знаю, как выглядят примеры задачи в твоем конспекте. Напиши пример из твоего чудо-конспекта, тогда и обсудим