Составить программу вычисления, A - сумма положительных элементов массива; B - количество...

Question

Составить программу вычисления, A - сумма положительных элементов массива; B - количество отрицательных элементов массива; C - произведение элементов массива с нечетными номерами. Полученные значения элементов А,B,C,W вывести на печать. ПАСКАЛЬ!

Comments

W - а это что такое?

---

Не знаю)

---

Печально...

---

Будет без W

Answer 1

const n=10;

var m:array [1..n] of integer;

i,A,B,C:integer;

begin

C:=1;

write('Массив: ');

for i:=1 to n do

begin

m[i]:=random(41)-20;

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

if m[i] < 0 then B:=B+1;

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

write(m[i],'  ')

end;

writeln;

writeln('Сумма положительных элементов: ',A);

writeln('Количество отрицательных элементов: ',B);

writeln('Произведение элементов массива с нечетными номерами: ',C);

end.