Составьте программу которая заполняет массива а 1..10 случайными целыми числами в диапазоне от -10 до 10 затем преобразовывает массив заменяя все отрицательные элементы их модулями

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, -10, 10);

 a.Println;

 a.Transform(t -> t < 0 ? -t : t);

 a.Println

end.

javascript:a = []; for (let сч = 0; сч < 10; сч++) a.push(Math.floor(Math.random() * 21 - 10)); a.forEach(function (зн, сч) { if (зн < 0) a[сч] = -a[сч]; });

// PascalABC.NET 3.0,сборка 1073
const
  n=10;
var
  a,b:array[1..n] of integer;
  i,p,k,max:integer;
begin
  Randomize;
  max:=-200; k:=0;
  Writeln(' №   A   B  AixBi');
  Writeln('');
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    b[i]:=Random(21)-10;
    p:=a[i]*b[i];
    Writeln(i:2,a[i]:4,b[i]:4,p:5);
    if p<0 then begin Inc(k); if p>max then max:=p end
  end;
  Writeln('');
  Writeln('Количество AixBi<0 равно ',k);
  Writeln('Максимум среди этих произведений равен ',max);
end.

Тестовое решение:
 №   A   B  AixBi

 1   8  -7  -56
 2  -7  -8   56
 3  -4   3  -12
 4  -9  -2   18
 5 -10   3  -30
 6  -3   3   -9
 7   0   2    0
 8  -9  -7   63
 9  -7  -7   49
10   0  -7    0

Количество AixBi<0 равно 4
Максимум среди этих произведений равен -9

1. Определим, какой информационный объём занимает одна страница. Если считать, что используется кодировка ASCII, в которой каждый символ занимает один байт, то 64 символа, помещающиеся на одной странице займут 64 байта.
2. Определим количество страниц в тесте, для чего достаточно разделить объем текста на объем одной страницы.
3 КБ = 3 х 1024 Б = 3072 Б.
3072 / 64 = 48 (страниц)
3. Определим, сколько всего потребуется листов бумаги.
Для печати одного экземпляра текста требуется 48 листов, если считать, что текст печатать с одной стороны. Для печати семи копий (неудачный термин, лучше говорить о семи экземплярах, потому что 7 экземпляров - это текст и шесть его копий) потребуется 48 х 7 = 336 (листов) .

ответ: 336 листов