Дана последовательность целых чисел.
Замечание. Задачи из данного пункта решить двумя способами, используя одномерный массив. Размерность массива вводится с клавиатуры.
1. Заменить все положительные элементы противоположными им числами.
Pascal abc,сам не знаю этот
Замечание. Задачи из данного пункта решить двумя способами, используя одномерный массив. Размерность массива вводится с клавиатуры.
1. Заменить все положительные элементы противоположными им числами.
Pascal abc,сам не знаю этот
More Questions From This User See All
Answers & Comments
Программа:
const
MAX_N = 1000; // Максимальное количество элементов в массиве
var
a: array[1..MAX_N] of integer;
i, n: integer;
begin
// Ввод массива
write('Введите размерность массива: ');
read(n);
writeln('Введите массив: ');
for i := 1 to n do
read(a[i]);
// Обработка массива
for i := 1 to n do
// Если элемент положительный, то меняем знак
if a[i] > 0 then
a[i] := -a[i];
// Вывод массива
writeln('Полученный массив:');
for i := 1 to n do
write(a[i], ' ')
end.
Второй способ (каждому элементу присваиваем обратное его модулю число)
Программа:
const
MAX_N = 1000; // Максимальное количество элементов в массиве
var
a: array[1..MAX_N] of integer;
i, n: integer;
begin
// Ввод массива
write('Введите размерность массива: ');
read(n);
writeln('Введите массив: ');
for i := 1 to n do
read(a[i]);
// Обработка массива
for i := 1 to n do
a[i] := -abs(a[i]);
// Вывод массива
writeln('Полученный массив:');
for i := 1 to n do
write(a[i], ' ')
end.