Напиши, , программу на с++ найти сумму положительных и число отрицательных элементов массива а0, а1, а2,…, аn-1. датчики псевдослучайных чисел использовать запрещается. входные данные вводятся с клавиатуры, выходные данные выходятся на экран с пояснениями. проверить и продемонстрировать работу программы.

Dev-c++ #include < iostream> using namespace std; int main() {       int i, n;       cout< < "введите количество элементов: ";       cin> > n;       int a[n];       for (i=0; i< n; i++) {             cout< < "введите "< < i+1< < "-й элемент: ";             cin> > a[i];       }       int sump=0, koln=0;       for (i=0; i< n; i++) {                     if (a[i]< 0) koln++;                     else if (a[i]> 0) sump+=a[i];       }       cout< < "сумма положительных равна "< < sump< < endl;       cout< < "количество отрицательных равно "< < koln< < endl;       system("pause");       return 0; } тестовое решение: введите количество элементов: 10 введите 1-й элемент: 4 введите 2-й элемент: 0 введите 3-й элемент: -2 введите 4-й элемент: 6 введите 5-й элемент: 5 введите 6-й элемент: 0 введите 7-й элемент: -5 введите 8-й элемент: -2 введите 9-й элемент: 7 введите 10-й элемент: -4 сумма положительных равна 22 количество отрицательных равно 4 для продолжения нажмите любую клавишу . .

Тут неудобно писать код, все сливается. смотри скриншот

Const n=20; var a: array[1..n]of integer; i,b,k,c,f,g,h: integer; beginfor i: =1 to n do a[i]: =random(70)-20; for i: =1 to n dowrite(a[i],' '); writeln; for i: =1 to n do beginif (a[i] mod 5 = 0) and (a[i] mod 10< > 0) or (a[i]=50) then beginb: =i; for b: =i to (n-1) doa[i]: =a[i+1]; end; end; for i: =1 to n dowrite(a[i],' '); write('введите к '); read(k); for i: =1 to n do beginif a[i] mod i = 0 then beginc: =i; for i: =n downto c+1 do begina[i]: =a[i-1]; a[c+1]: =k; end; end; end; for i: =1 to n dowrite(a[i],' '); writeln; f: =0; g: =0; for i: =n downto 1 do beginif (a[i]> 0) then f: =i; end; if a[f]=0 then write('нет положительных '); for i: =n downto 1 do beginif (a[i]< 0) then g: =i; end; if (a[g]=0) then write('нет отрицательных '); if (a[f]< > 0) and (a[g]< > 0) then beginh: =a[f]; a[f]: =a[g]; a[g]: =h; end; for i: =1 to n dowrite(a[i],' '); writeln; end.