Дан массив а(м), м меньше или равно 20. вывести на печать сумму элементов массива. если она превосходит число 50, в противном случае вывести в печать исходный массив.

program summa;

  uses crt;

  const m=20;

  var a: array[1..m] of integer;

        i,s: integer;

  begin

    for i: =1 to m do

      a[i]: =random(101)-50;

    for i: =1 to m do

      s: =s+a[i];

    if s> 50 then writeln('сумма = ',s) else

      for i: = 1 to m do

          writeln('элемент массива №',i,' равен ',a[i]);

  end.

или

program summa;

  uses crt;

  const m=20;

  var a: array[1..m] of integer;

        i,s: integer;

  begin

    for i: =1 to m do

      readln(a[i]);

clrscr;

    for i: =1 to m do

      s: =s+a[i];

    if s> 50 then writeln('сумма = ',s) else

      for i: = 1 to m do

          writeln('элемент массива №',i,' равен ',a[i]);

  end.

каждая запись должна кодировать один из 32 - (-32) + 1 = 65 вариантов

, поэтому каждая цепочка должна быть длины 7 и содержать 7 бит информации

если одна запись несёт 7 бит информации, то информационный объём 40960 записей составляет 40960 * 7 бит = 5 * 7 * 1024 * 8 бит = 5 * 7 * 1024 байт = 5 * 7 кбайт = 35 кбайт

ответ. 35 кбайт