Дан массив а(n) . сформировать новый массив d(n) путем умножения отрицательных элементов массива a(n) на 25, а положительных на - 7. d новом массиве d(n) определить количество элементов, значение которых больше 100.

For i:=0 to N do
begin
if a{i] < 0 then
d[i]:=a[i]*25;
else
d[i]:=a[i]*7;
if abs(d[i]) > 100) then
inc(k);
end;

Вот кусок программы, вопросы задавай, если что.