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

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

Задать свой вопрос
Диана Кейзер
От -100 до 100?
Евгения Фертова
доскональное решение необходимо
2 ответа
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
  a.Transform(t-gt;tlt;0?t*20:t); a.Println
end.

Пример
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
Хворостков Кирилл
beginvar a:=arrRandom(readln(n=),-100,100); a.println;a.select(t->t<0?t*20:t).println;end.))))Не глядя
Камилла Даненкова
beginvar a:=arrRandom(readln('n='),-100,100); a.println;a.select(t->t<0?t*20:t).println;end.
//Код с комментариями во вложении
//Pascal
var
  A: array [1..20] of integer;
  i: byte;
begin
randomize;
for i := 1 to 20 do
begin
  A[i] := random(201)-100;
  if A[i] lt; 0 then A[i] := A[i] * 20;
  write(A[i], ' ');
end;
writeln;
readln;
end. 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт