Nучащихся получили оценки за контрольную работу. ввести оценку каждого ученика, найти средний , кол-во неудовлетворительных оценок

Var    p: real;     i,n,k,s: integer; begin  writeln('введите количество учащихся');   readln(n);   k: =0;   p: =0;     for i: = 1 to n do          begin              read(s);         if s=5 then k: =k+1;           p: =p+s;         end;   write('средний ',p/n,' количество отличных оценок ',k)end.

1. площадь документа 10 * 15 = 150 кв.см если в 1 кв.см 600 точек, то в 150 кв.см 150 * 600 = 90 000 точек. на каждую точку отводится 4 бита, тогда всего 90 000 * 4 бит = 45 000 байт = 43,95 кб (в 1 байте 8 бит, в 1 кб 1024 байт) 2. всего символов: 2000 страниц * 80 строк/страницу * 100 символов/строку = 16 000 000 на каждый символ отводится 16 бит = 2 байта, тогда всего на кодирование текста уйдёт 16 000 000 * 2 = 32 000 000 байт = 30,52 мб (1 мб = 1024 кб). на изображения потребуется дополнительно 80 * 5 мб = 400 мб. общий объем рукописи 400 мб + 30,52 мб = 430,52 мб < 512 мб, рукопись поместится на флэшке. 3. v = n f i t, n - число каналов (1), f - частота (22 000 гц), i - глубина кодирования (16 бит), t - время (120 с). v = 1 * 22 000 * 16 * 120 бит = 22 000 * 2 * 120 байт = 5156,25 кб = 5,04 мб 4. v = 2 * 11 000 * 16 * 360 бит = 3 * (22 000 * 16 * 120) бит = 3 * 5,04 мб = 15,12 мб

Var a: array [0..10] of integer;     i, p, o, n: integer; begin       for i : = 0 to 10 do       begin           a[i] : = random(100) - 50;           write(a[i], ' ');           if (a[i] > 0) then inc(p);           if (a[i] = 0) then inc(n);           if (a[i] < 0) then inc(o);       end;       writeln();       writeln(p, ' ', n, ' ', o); end.