Напишите программу в массиве с(14) найти сумму отрицательных и среднее арифметическое положительных элементов.

1. "школьный" вариант (так учат в школах) //pascalabc.net 3.0, сборка 1064 const   n=15; var   c: array[1..n] of integer;   i,k: integer;   sn,ap: longint; begin   randomize;   writeln('исходный массив');   k: =0;   for i: =1 to n do begin       c[i]: =random(51)-25;       write(c[i]: 4);       if c[i]< 0 then sn: =sn+c[i]       else           if c[i]> 0 then begin ap: =ap+c[i]; inc(k) end   end;   writeln;   writeln('сумма отрицательных элементов равна ',sn);   writeln('среднее арифметическое положительных элементов равно ',ap/k) end. тестовое решение: исходный массив   22  15  -5    4    7  -6  24  23 -25 -21 -10  21 -11  -4  22 сумма отрицательных элементов равна -82 среднее арифметическое положительных элементов равно 17.25 2. современный вариант (а так в школах почему-то не учат) //pascalabc.net 3.0, сборка 1064 begin   var c: =seqrandom(15,-25,25);   writeln('исходный массив'); println(c);   writeln('сумма отрицательных элементов равна ',c.where(x-> x< 0).sum);   writeln('среднее арифметическое положительных элементов равно ',       c.where(x-> x> 0).average) end. тестовое решение: исходный массив [21,13,16,-6,-5,-21,-23,10,14,5,-14,7,-10,-9,9] сумма отрицательных элементов равна -120 среднее арифметическое положительных элементов равно 12.125

56 кбит/с = 56000 бит/с (в скорости предачи данных обычно 1кбит/с = 1000 бит/с )

 

посчитаем кол-во данных, которые передали за 5 секунд:

56000 бит/с * 5 с = 280000 бит

 

в обычной кодировке один символ занимает один байт (то есть 8 бит)

посчитаем количество переданных символов текста:

280000 бит / 8 = 35000 символов