Составьте программу которая заполняет массива а 1..10 случайными целыми числами в диапазоне от -10 до 10 затем преобразовывает массив заменяя все отрицательные элементы их модулями
// 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.
1. Определим, какой информационный объём занимает одна страница. Если считать, что используется кодировка ASCII, в которой каждый символ занимает один байт, то 64 символа, помещающиеся на одной странице займут 64 байта. 2. Определим количество страниц в тесте, для чего достаточно разделить объем текста на объем одной страницы. 3 КБ = 3 х 1024 Б = 3072 Б. 3072 / 64 = 48 (страниц) 3. Определим, сколько всего потребуется листов бумаги. Для печати одного экземпляра текста требуется 48 листов, если считать, что текст печатать с одной стороны. Для печати семи копий (неудачный термин, лучше говорить о семи экземплярах, потому что 7 экземпляров - это текст и шесть его копий) потребуется 48 х 7 = 336 (листов) .
begin
var a := ArrRandom(10, -10, 10);
a.Println;
a.Transform(t -> t < 0 ? -t : t);
a.Println
end.