Question

Дан массив А(10).Все положительные элементы заменить на отрицательные (равные по модулю),а нули заменить на 100(Pascal)

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('10 чисел:',10);
  a.Transform(x->x>0?-x:x=0?100:x);
  a.Println
end.

Пример
10 чисел: 13 -10 5 0 14 0 -6 -7 0 4
-13 -10 -5 100 -14 100 -6 -7 100 -4

Answer 2

Const
   N = 10;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Переработанный массив: ');
For i:= 1 to N do
    Begin
    if A[i] > 0 then A[i]:=-A[i];
    if A[i] = 0 then A[i]:=100;
    Write(A[i],' ');
    End;
End.

Пример:
Исходный массив: -7 10 -1 -8 9 -5 -1 -5 -9 0
Переработанный массив: -7 -10 -1 -8 -9 -5 -1 -5 -9 100

Answer 3

Я могу помочь вам с вашим вопросом о программировании на языке Pascal. Вот подробный ответ на ваш вопрос:

Дан массив А(10) целых чисел. Необходимо заменить все положительные элементы на отрицательные (равные по модулю), а нули заменить на 100. Для этого можно использовать следующий алгоритм:

- Объявить массив А(10) и заполнить его случайными или введенными с клавиатуры значениями. - Объявить переменную i для индексации элементов массива. - Использовать цикл for от 1 до 10 для перебора всех элементов массива. - В теле цикла проверить, является ли текущий элемент положительным, отрицательным или нулевым с помощью условных операторов if-then-else. - Если элемент положительный, то заменить его на -A[i], то есть на отрицательное число, равное по модулю исходному. - Если элемент отрицательный, то оставить его без изменений. - Если элемент нулевой, то заменить его на 100. - Вывести полученный массив на экран или в файл.

Пример кода на языке Pascal, реализующего этот алгоритм, можно посмотреть по ссылке [1](https://www.cyberforum.ru/pascal/thread52925.html). Там же можно запустить программу и проверить ее работу на разных входных данных. Вот еще несколько ссылок, где можно найти похожие задачи и их решения на языке Pascal: [2](https://www.cyberforum.ru/c-beginners/thread947773.html), [3](https://libr.aues.kz/facultet/tef/kaf_ik/22/umm/ik_49.htm), [4](https://pandia.ru/text/77/191/18559-3.php).

Надеюсь, что мой ответ был полезен для вас. Если у вас есть еще вопросы, я буду рад помочь.