А=J*D*t= 16*16000*30= 7680000 бит = 7680000/8=960000 байт= 960000/1024= 937,5 Кбайт
19=16+2+1=10011(2)
<span>ответ 2)</span>
Var i,j,sum,num:integer;
result:real;
a:array[1..10,1..10] of integer;
begin
sum:=0;
num:=0;
randomize;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=-20+random(40);
write(a[i,j]:5);
end;
writeln;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if a[i,j]<0 then
begin
sum:=sum+a[i,j];
num:=num+1;
end;
end;
end;
writeln;
result:=sum/num;
write(result:0:2);
end.