По информатике.дана последовательность целых чисел а1 а2 . вычислите сумму отрицательных элементов

  const      n = 10;           var    a : array [1..n] of integer;       s,i : integer;           begin    //формирование массива пропускаю          s: = 0;     for i : = 1 to n do    if a[i] < 0 then      s: = s + a[i];     writeln (s);     end.

Var n,z,k: integer; begin write('введите сумму: '); readln(n); k: =500; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =100; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =50; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =10; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =5; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =1; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); end.

Персональные компьютеры pc сегодня стали незаменимыми человека во всех без исключения сферах человеческой деятельности. на компьютерах рассчитывают заработную плату и объем урожая, рисуют графики движения товаров и изменения общественного мнения, проектируют атомные реакторы и ботинки. слово “компьютер” означает “вычислитель”. потребность в автоматизации обработки данных, в том числе вычислений, возникла давно. в настоящее время индустрия производства компьютерного железа и программного обеспечения является одной из наиболее важных сфер развитых и развивающихся стран. причины стремительного роста индустрии персональных компьютеров:   невысокая стоимость;   сравнительная выгодность для многих деловых применений;   простота использования;   возможность индивидуального взаимодействия с компьютеров без посредников и ограничений;   высокие возможности по переработке, хранению и выдаче информации;   высокая надежность, простота ремонта и эксплуатации;   компьютерное железо адаптивно к особенностям применения компьютеров;   наличие программного обеспечения, охватывающего практически все сферы человеческой деятельности, а также мощных систем для разработки нового программного обеспечения.