Информационный объём одного сообщения состовляет о, 5 кбайт, а другого-500 байтов. на сколько битов инормационный объём первого сообщения больше объёма второго сообщения?

i1 = 0,5 кб = 0,5 * 1024 = 512 байт

i1< i2= 512-500=12 байт

0,5 кбайт=500 байт =4000 бит.

объем сообщений одинаовый

 

Замена отрицательных на положительные: так нужно было? uses crt; var mas: array [1..6] of integer;   a,i,j: integer; beginrandomize;       for i: =1 to 6 do      begin      mas[i]: =random(60)-50;         writeln(i: 2,' ',mas[i])      end;         readln;       for i: =1 to 6 do      begin      if mas[i]< 0 then mas[i]: =abs(mas[i]);       writeln(i: 2,' ',mas[i]);       end;       readln;       end.

По порядку:   programm z_1; слово программа на пишется с 1 m правильно: program z_1; 1)  beigin; правильно begin и без точки с запятой2) p=0;     оператор присвоения пишется не просто равно, а : = правильно: " p: =0; "3) i=1; см. 2пункт4) write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать   в скобках, не to, а do  и  beigin см. пункт 1 правильно:   while (i > 15) do begin 5) i=i+2; см. пункт 26)  while ('произведение нечётных чисел от  1 до  15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква р , а надо p (пэ) . правильно:   write  ('произведение нечётных чисел от  1 до  15 =',p);   7)  end.  в конце цикла пишут end;   8) в конце программы ставят end. откорректированный код: program z_1 var i,p : integer; begin p: =0; i: =1; while (i > 15) do begin p: =p*i; i: =i+2;   end; write('произведение нечётных чисел от  1 до  15 =',p); end.