• Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). Требуется умножить отрицательные значения элементов этого массива на 20.

Ответы 4

  • beginvar a:=arrRandom(readln(n=),-100,100); a.println;a.select(t->t<0?t*20:t).println;end.))))Не глядя
  • Не гладя - нельзя. Тут условие не совсем корректное "Требуется умножить отрицательные значения элементов этого массива на 20. " - непонятно, то ли надо изменить значения элементов текущего массива, то ли новый сформировать, то ли просто вывести такие значения. Я исходил из первого варианта, написали вариант с третьим. Только забыли n= заключить в одинарные кавычки.
  • beginvar a:=arrRandom(readln('n='),-100,100); a.println;a.select(t->t<0?t*20:t).println;end.
    • Автор:

      macigfn3
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;  a.Transform(t->t<0?t*20:t); a.Printlnend.Примерn= 13-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92
    • Автор:

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

Войти через Google

или

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

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

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