Дан числовой ряд от 1 до 32 какое количество информации несет одно число из этого ряда

Question

Информатика: Дан числовой ряд от 1 до 32 какое количество информации несет одно число из этого ряда

Bitq · Accepted Answer

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( Среднее арифметическое положительных элементов равно...

MOGZ ответил