написать программу на языке Паскаль:
На место положительных элементов массива (a1, a2,...an) записать единицы и сосчитать их количество. для отрицательных элементов массива определить их сумму.
исходные данные:
n=12
a= [-8, 10, 11, -30, 21, 22, -5, 10, -10, -12, 1, 5]

Program mas1;var a:array[1..100] of integer;k,sum,n,i:integer;Begin randomize;k:=0;sum:=0;writeln('Введите размерность массива',n); readln(n);for i:=1 to n doread(a[i]);for i:=1 to n dobegin if a[i]>0 thenbegin a[i]:=1;k:=k+1;end;write(' ',a[i]);if a[i]<0 thenbegin sum:=sum+a[i];end;end;writeln(' sum=',sum,' k=',k);readln;End.