Чему равен 1 Мбайт 1.100000бйт 2.1024 бай 3.1024кбайт 4.1000байт

153

167

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

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

fagsfssfs

Информатика

4,8(35 оценок)

3. 1024 Кбайт

ХудшийИзХудших

Информатика

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

Var a: array of integer; n: integer; i: integer; sum: integer; begin randomize; write('n = '); readln(n); setlength(a, n + 1); writeln('массив: '); for i : = 1 to n do begin a[i] : = random(50) - 25; write(a[i] + ' '); end; writeln; writeln('без отрицательных: '); for i : = 1 to n do begin if a[i] > = 0 then write(a[i] + ' '); end; sum : = 0; writeln; writeln('среднее арифметическое: '); for i : = 1 to n do begin sum : = sum + a[i]; end; writeln(sum / n); end.