Решить в pascal, желательно простыми , зарание ! )

pascalabc.net

procedure minmax(a: array of integer; var min, max: integer);

begin

  for var i : = 0 to a.high do

    if a[i] < min then

      min : = a[i]

    else if a[i] > max then

      max : = a[i]

end;

begin

  var a1 : = arrrandom(10, -99, 99);

  a1.println;

  var a2 : = arrrandom(10, -99, 99);

  a2.println;

  var a3 : = arrrandom(10, -99, 99);

  a3.println;

  var a4 : = arrrandom(10, -99, 99);

  a4.println;

  var min1, min2, min3, min4, max1, max2, max3, max4: integer;

  minmax(a1, min1, max1);

  minmax(a2, min2, max2);

  minmax(a3, min3, max3);

  minmax(a4, min4, max4);

  var r : = seq(min1, min2, min3, min4, max1, max2, max3, max4)

    .sorted.toarray;

  r.println

end.

конечно, подобные намного компактнее и проще писать на базе двумерного массива.

1.я неуверен на 100% в 1 .если весь текст состоит из к символов, то приалфавитном подходе размер содержащийся в ней информации i определяется по формуле: i=k*x, где х—информационный вес одного символа в используемом алфавите.решение: всего у нас 10 символов: 0,1,2,3,4,5,6,7,8,9.i=k*x, 10*8=80 бит80*80=6400 битответ: 6400 бит.2.пусть в некотором сообщении содержатся сведения о том, что произошло одно из n равновероятных событий. тогда кол-во информации x, заключенное в этом сообщении, и число событий n связаны формулой: 2^х=nрешение: 2^x=82^3=8ответ: 3 бит.