Обнулить все отрицательные элементы массива и посчитать количество остальных.

Var   counter, i, n: integer;   mas: array[1..9999] of integer; begin   readln(n);   for i: =1 to n do     readln(mas[i]);   for i: =1 to n do     if mas[i]< 0 then       mas[i]: =0     else       counter: =counter+1;   for i: =1 to n do     write(mas[i],' '); end.

ответ:

рынок информационных продуктов и услуг (информационные рынок) - система , правовых и организационных отношений по торговле продуктами интеллектуального труда на коммерческой основе.

информационный рынок характеризуется определенной номенклатурой продуктов и услуг, условиями и механизмами их предоставления, ценами. в отличие от торговли обычными товарами, имеющими материально-вещественную форму, здесь в качестве предмета продажи или обмена выступают информационные системы, информационные технологии, лицензии, патенты, товарные знаки, ноу-хау, инженерно-технические услуги, различного рода информация и прочие виды информационных ресурсов.

основным источником информации для информационного обслуживания в современном обществе являются базы данных. они интегрируют в себе поставщиков и потребителей информационных услуг, связи и отношения между ними, порядок и условия продажи и покупки информационных услуг.

// pascalabc.net 3.3, сборка 1541 от 29.09.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger('введите 7 целых чисел: ',7);   write('положительные: '); a.where(x-> x> 0).println;   write('        нечетные: '); a.where(x-> x.isodd).println;   write('положительные, кратные 5: '); a.where(x-> (x> 0) and (x mod 5= end. пример введите 7 целых чисел: -5 6 21 15 -20 40 0 положительные: 6 21 15 40         нечетные: -5 21 15 положительные, кратные 5: 15 40