Написать программу на фортране Заменить все отрицательные элементы массива на
первый положительный элемент (например, -1 -2 6 -36 0 -4 9 -7 ... — здесь первым
положительным элементом является число 6). Вывести измененный массив в том
же виде что и исходный, но со следующей строки.

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

3^i = 18

i = 3

ответ. 3 лампочки.

х = log₂ n;

х = log₂ 12 бит.

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919