Составить программу для вычисления
A - сумма отрицательных элементов массива;
B – количество четных элементов массива;
C - номер первого положительного элемента массива.
Полученные значения элементов А,B,C,F вывести на печать.
F:=C+((A+B)/(10-C+A)).

const n=20;var x,y : array[1..n] of integer;   i,a,b,c : integer; f:real;beginRandomize; writeln('Исходный массив:');for i:=1 to n do begin  x[i]:=random(101)-50;  write(x[i],' '); end; writeln;a:=0; b:=0; c:=0;for i:=1 to n do begin if x[i]<0 then a:=a+x[i]; if x[i] mod 2 = 0 then b:=b+1; if (c=0)and(x[i]>0) then c:=i; end;writeln('A=',a,'  B=',b,'  C=',c);f:=c+((a+b)/(10-c+a));writeln('F=',f:5:2);end.Пример:Исходный массив: 10 -37 1 31 -22 45 3 32 -2 48 -19 -48 39 22 -39 -29 -49 8 -16 22  A=-261 B=10 C=1 F= 2.00