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

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

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

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

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

Question

Информатика

Мишата

18 октября, 18:27

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

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

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

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

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

+1

Ответы (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.