55 задайте массив с рандома 70 на отрезке -35 - 35 найдите в нем максимальный элемент и его число

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

1. "современный вариант" // pascalabc.net 3.0, сборка 1076 begin   var n: =readinteger('введите количество элементов массива: ');   var a: =arrrandom(n,1000,10000);   write('исходный массив: ',a,#13#10);   write('множество цифр из разряда сотен: ');   a.select(x-> (x mod 1000) div 100).sorted.distinct.println(',') end. тестовое решение: введите количество элементов массива: 8 исходный массив: [9374,4420,8856,8274,7555,2461,8302,6325] множество цифр из разряда сотен: 2,3,4,5,8 2. "школьный вариант" // pascalabc.net 3.0, сборка 1076 var   i,n: integer;   sd: set of 0..9;   a: array[1..50] of integer; begin   write('введите количество элементов массива: '); read(n);   randomize;   write('исходный массив: ');   sd: =[];   for i: =1 to n do begin       a[i]: =random(9001)+1000;       write(a[i],' ');       include(sd,(a[i] mod 1000) div 100)       end;   writeln;   write('множество цифр из разряда сотен: ');   for i: =0 to 9 do       if i in sd then write(i: 2);   writeln end. тестовое решение: введите количество элементов массива: 8 исходный массив: 5332 4215 7231 3399 6989 8904 7804 3517 множество цифр из разряда сотен:   2 3 5 8 9