Question

Помогите с информатикой в Паскале ABC, Напишите команды этого задания Введите с клавиатуры одномерный массив А(N), элементами которого являются положительные и отрицательные целые числа. Подсчитайте произведение положительных элементов этого массива и количество отрицательных. Сформируйте новый массив В(N) из элементов массива А(N), в котором все элементы которые стоят на четных местах замените на произведение положительных, а на нечетных – на количество отрицательных.

Answer 1

var a,b: array of integer;

i,n,lo,ss: integer;

begin

lo:=0;

ss:=1;

write('Введите количество элементов массива');

readln(n);

setlength(a,n);

setlength(b,n);

for i:=0 to n-1 do

begin

write('Ввод данных для a[',i+1,']=');

readln(a[i]);

if a[i]<0 then inc(lo) else ss:=ss*a[i];

end;

writeln('Данные массива A:');

for i:=0 to n-1 do writeln('a[',i+1,'] = ',a[i]);

writeln;

writeln('Данные массива B:');

for i:=0 to n-1 do

begin

if odd(i+1) then b[i]:=lo else b[i]:=ss;

writeln('b[',i+1,'] = ',b[i]);

end;

end.