Const n=21;
var q:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
q[i]:=random(51)-10;
write(q[i]:4);
end;
writeln;
k:=0; s:=0;
for i:=1 to n do
if q[i]<0 then begin s:=s+q[i]; k:=k+1; end;
writeln('Среднее арифметическое отрицательных элементов = ',s/k);
end.
Пример:
16 -1 -7 5 13 11 -2 -10 36 19 3 34 23 29 12 28 9 39 33 16 -6
Среднее арифметическое отрицательных элементов = -5.2
Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
Begin
A[i]:=random(201)-100;
Write(A[i],' ');
End;
End.
Вам что- то очень сложно задают для 1-4 класса. Извини, я не могу помочь.
<span>файл объемом 500 Кбайт</span>
<span>общий объем информации в БИТАХ </span>
<span>OOИ =500 Кбайт =512000 байт =4096000 бит</span>
<span>скорость передачи v=<span>128000 бит/с</span></span>
<span><span>время передачи t= ООИ / v =4096000 бит / 128000 бит/с = 32 c</span></span>
<span><span>
</span></span>
<span><span>Ответ 32 секунды</span></span>