Вопрос по информатике:
Дана последовательность целых чисел.
Замечание. Задачи из данного пункта решить двумя способами, используя одномерный массив. Размерность массива вводится с клавиатуры.
1. Заменить все положительные элементы противоположными им числами.
Pascal abc,сам не знаю этот
- 10.10.2017 00:12
- Информатика
- remove_red_eye 17661
- thumb_up 12
Ответы и объяснения 1
Программа:
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.
- 01.01.1970 00:00
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.