Отрицательные элементы заменить их модулями, а положительные квадратами - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

1.Отрицательные элементы заменить их модулями, а положительные квадратами.

Решение задачи: «Отрицательные элементы заменить их модулями, а положительные квадратами»

textual
Листинг программы
...
for i:=1 to n do
 if a[i]<0 then
   a[i]:=abs(a[i])
 else 
  if a[i]>0 then
   a[i]:=sqr(a[i]);
...

Объяснение кода листинга программы

В данном коде происходит обработка массива a с целью замены отрицательных элементов их абсолютными значениями, а положительных элементов их квадратами. Код начинается с объявления переменной n, которая представляет собой количество элементов в массиве a. Затем следует цикл for, который выполняется от 1 до n. Внутри цикла проверяется условие: если элемент массива a[i] отрицательный, то он заменяется своим абсолютным значением (abs(a[i])). Если же элемент положительный, то он заменяется своим квадратом (sqr(a[i])). Таким образом, после выполнения данного кода, все отрицательные элементы массива a будут заменены на их абсолютные значения, а положительные элементы - на их квадраты.

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы