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

Ответы 2

  • // 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.Printlnend.Пример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;BeginWrite('Исходный массив: ');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
    • Автор:

      brodie94
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years