Помогите с информатикой в Паскале ABC, Напишите команды этого задания Введите
Помогите с информатикой в Паскале ABC, Напишите команды этого задания Введите с клавиатуры одномерный массив А(N), элементами которого являются положительные и отрицательные целые числа. Подсчитайте произведение положительных элементов этого массива и количество отрицательных. Сформируйте новый массив В(N) из элементов массива А(N), в котором все элементы которые стоят на четных местах поменяйте на творение положительных, а на нечетных на количество отрицательных.
Задать свой вопрос
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]lt;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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.