Задана последовательность из n вешественных положительных чисел. найти среднее этих чисел c и определить, сколько среди них чисел меньше c, равных c и больших c

250

453

Посмотреть ответы 2

Ответы на вопрос:

sofafomenkosofa

Информатика

4,7(69 оценок)

Var a: array of real; i,n,m,k,p: integer; s: real; begin write('n = '); readln(n); setlength(a,n); s: =1; randomize; writeln('массив: '); for i: =0 to n-1 do begin a[i]: =random(200)/1000; s: =s*a[i]; write(a[i]: 5: 3,' '); end; writeln; s: =power(s,1/n); p: =0; m: =0; k: =0; writeln('среднее : ',s); for i: =0 to n-1 do begin if a[i]< s then inc(m); if a[i]> s then inc(k); if a[i]=s then inc(p); end; writeln('меньше: ',m,' равно: ',p,' больше: ',k); end.n = 10 массив: 0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017 среднее : 0.0854754255570728 меньше: 3 равно: 0 больше: 7

рикки8

Информатика

4,4(44 оценок)

256 символов в алфавите можно закодировать 8 битами т.е. 1 байтом.найдем сколько всего символов на одной стороне дискеты 36*8*768=221184 символа. найдем сколько занимает это количество символов объем информации умножив на объем занимаемый одни символом 221184*1=221184 байт=216 кбайт. это одна сторона, а нам нужно объем двух сторонней дискеты. 216*2=452 кбайт. извините за то что неверно написал в начале.