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

Question

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

Comments

От -100 до 100?

---

подробное решение нужно

Answer 1

//Код с комментариями во вложении
//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] < 0 then A[i] := A[i] * 20;
  write(A[i], ' ');
end;
writeln;
readln;
end. 

Answer 2

// 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.Println<br>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

Comments

begin
var a:=arrRandom(readln(n=),-100,100); a.println;
a.select(t->t<0?t*20:t).println;<br>end.
))))Не глядя

---

begin
var a:=arrRandom(readln('n='),-100,100); a.println;
a.select(t->t<0?t*20:t).println;<br>end.