Составить программу вычисления, W=B+(a-b):(c+1) A сумма положительный элементов массива B...

Question

Составить программу вычисления, W=B+(a-b):(c+1) A сумма положительный элементов массива B количество отрицательных элементов массива C произведение элементов массива с нечетными номерами Полученные значения элементов A,B,C,W вывести на печать.

Comments

Какой язык программирования?

Answer 1

const N=1000;

var K: array [1..N] of integer;

i,A,B,C: integer;

W: real;

begin

for i:=1 to N do K[i]:=random(101)-50;

A:=0;

B:=0;

C:=1;

for i:=1 to N do begin

if K[i]>0 then A:=A+K[i];

if K[i]

if i mod 2<>0 then C:=C*K[i];

end;

W:=B+(A-B)/(C+1);

writeln(W);

end.