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

Дан массив А(10).Все положительные элементы заменить на отрицательные (равные по модулю),а нули заменить на 100(Pascal)
Гость
Ответ(ы) на вопрос:
Гость
// 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
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы