Question

Составить программу вычисления,
A - сумма положительных элементов массива;
B - количество отрицательных элементов массива;
C - произведение элементов массива с нечетными номерами.
Полученные значения элементов А,B,C,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.