Предмет: Информатика,
автор: sstudent
Помогите с информатикой в Паскале ABC, Напишите команды этого задания Введите с клавиатуры одномерный массив А(N), элементами которого являются положительные и отрицательные целые числа. Подсчитайте произведение положительных элементов этого массива и количество отрицательных. Сформируйте новый массив В(N) из элементов массива А(N), в котором все элементы которые стоят на четных местах замените на произведение положительных, а на нечетных – на количество отрицательных.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Биология,
автор: knopik21111981nvkz
Предмет: Английский язык,
автор: vorobushek050607
Предмет: Математика,
автор: bdaniilsergeevich
Предмет: Математика,
автор: Неправдивая
Предмет: Математика,
автор: мария1470