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

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

Задать свой вопрос
Штроткин Володя
Какой язык программирования?
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]gt;0 then A:=A+K[i];

if K[i]lt;0 then B:=B+1;

if i mod 2lt;gt;0 then C:=C*K[i];

end;

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

writeln(W);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт