Введите с клавиатуры одномерный массив А (N), элементами которого являются

положительные и отрицательные целые числа. Подсчитайте произведение положительных

элементов этого массива и количество отрицательных. Сформируйте новый массив В (N) из

элементов массива А (N), в котором все элементы которые стоят на четных местах замените

на произведение положительных, а на нечетных - на количество отрицательных

Question

Информатика

Максимыч

17 сентября, 21:21

Введите с клавиатуры одномерный массив А (N), элементами которого являются

положительные и отрицательные целые числа. Подсчитайте произведение положительных

элементов этого массива и количество отрицательных. Сформируйте новый массив В (N) из

элементов массива А (N), в котором все элементы которые стоят на четных местах замените

на произведение положительных, а на нечетных - на количество отрицательных

+5

Ответы (1)

Знаешь ответ?

Петоха · Answer 1

Var

a, b:array [1 ... 1000] of integer;

i, s, c, n:integer;

begin

writeln ('Введите кол-во чисел');

readln (n);

s:=1;

c:=0;

for i:=1 to n do begin

writeln ('a[', i,'] = ');

read (a[i]);

if (a[i]>0) then s:=s*a[i];

if (a[i]<0) then c:=c+1;

end;

for i:=1 to n do begin

if (i mod 2 0) then a[i]:=c

else a[i]:=s;

end;

end.