Написать программу в паскале. указания: заполните одномерный числовой массив а[15] случайными целыми числами в интервале [18; 15].выведите значения элементов массива сначала в столбик, а затем в строку, причем на каждый элемент отведите 4 позиции. : заменить элементы массива, которые кратны пяти, на значение максимального элемента массива.

Const  n=15; var a: array[1..n]of integer; i,i_max: integer; begin            for i: =1 to n do              begin                          a[i]: =random(4)+15;                         writeln(a[i]);                   end;       writeln;           for i: =1 to n do                    write(a[i]: 4);                           writeln;             i_max: =1;                 for i: =2 to n do                      if a[i]> a[i_max]then                            i_max: =i;                 for i: =1 to n do                      if a[i]mod 5=0 then                              a[i]: =a[i_max];                 for i: =1 to n do                    write(a[i]: 4);               end.

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! function min(a: array of integer): =a.min; procedure max(a: array of integer; var mx,imx: integer); begin   imx: =a.indexmax; mx: =a[imx]; imx+=1; end; begin   var a: =readarrinteger('а: ',5);   var b: =readarrinteger('b: ',7);   var c: =readarrinteger('c: ',9);   var emax,imax,gmax,lmin: integer;   gmax: =min(a);   max(a,emax,imax); writeln('a: min=',gmax,', маx=',emax,' [',imax,']');   lmin: =min(b);   max(b,emax,imax); writeln('b: min=',lmin,', маx=',emax,' [',imax,']');   gmax: =max(gmax,lmin);   lmin: =min(c);   max(c,emax,imax); writeln('c: min=',lmin,', маx=',emax,' [',imax,']');   gmax: =max(gmax,lmin);   writeln('максимальный из минимумов равен ',gmax) end.

1)  если не принимать во внимание то, что иллюстрации тоже занимают место в «рукописи», то получаем объем, занимаемый текстом  4096*1024*128*16=8 589 934 592 бит занимает текст, для того, чтобы получить количество байт необходимо это число разделить на 8, т.к. в одной байте 8 бит. получаем 1 073 741 824 байт. далее, чтобы получить килобайты надо полученное число разделить на 1024. получим 1 048 576 кб. чтобы получить мегабайты, делим килобайты на 1024. получаем 1024 мегабайт или 1 гигабайт (т.к. 1 гигабайт = 1024 мегабайт).

далее считаем объем, занимаемый иллюстрациями:

2520*3=7560 мегабайт. делим на 1024 и получаем 7,3828125 гигабайт.

складываем полученные суммы: 1+7,3828125=8,3828125 гигабайт. что превышает объем флеш-карты. соответственно в несжатом виде «рукопись» не поместится.

2) 

а) из предыдущей мы знаем, что символ кодируется 16 битами. соответственно, чтобы получить объем, занимаемый одной книгой перемножаем 256*128*64*16=33 554 432 бита = 4 194 304 байта = 4 096 кб = 4 мегабайта. чтобы узнать сколько книг поместится на жесткий диск необходимо объем жесткого диска умножить на 1024 (получим объем в мегабайтах): 160 гбайт *1024 = 163 840 мегабайт. теперь делим объем жесткого диска на объем одной книги: 163 840 / 4 = 40 960 книг.

б) теперь перемножаем количество книг на 3 сантиметра и получаем высоту стопки книг: 40 960*3=122 880 см.