Сравните характеристики кампьютерных сетей

Для удобства вычислений считаем, что ширина диапазона дискретизации составляет 100 В (т.е. напряжение может быть равно 0, 1, 2, .. 99 В).
При этом получаются 5 интервалов
  0 - 19 В
20 - 39 В
40 - 59 В
60 - 79 В
80 - 99 В
Значение 54 В попадает в третий интервал и напряжение после дискретизации считается равным 40В (нижняя граница диапазона).

Если очень важно, чтобы и 100В попадало в диапазон дискретизации, то его ширина будут равна 101 В, что потребует ввести поправку 0.2В в границы интервалов. ответ на задачу при этом изменится и будет нецелым.

ответ: 40 В

Задача №1

var a:array [1..20] of integer;     
i:integer;
begin 
randomize;   
for i:=1 to 20 do begin   
a[i]:=random(19-(-10)+1)+-10;     
write (a[i],' ');           
end;
end.

Задача №2

var a:array [1..20] of integer; 
i:integer; 
begin 
writeln('Введите числа в интервале [-20;29]'); 
for i:=1 to 10 do read(a[i]); 
for i:=1 to 10 do 
if (a[i]>-29) and (a[i]<20) then write(a[i],' '); 
end.

Задача №3

var a:array [1..20] of integer; 
i,sum:integer; 
begin 
randomize; 
sum:=0; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
write (a[i],' '); 
if a[i]>0 then sum:=sum+1; 
end; 
writeln('Количество положительных элементов массива = ', sum); 
end.

Задача №4

var a:array [1..20] of integer; 
i:integer; 
begin 
randomize; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
if a[i]<0 then a[i]:=0; 
write (a[i],' '); 
end; 
end.

Задача №5

var a:array [1..20] of integer; 
i,sum:integer; 
begin 
randomize; 
sum:=0; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
write (a[i],' '); 
if a[i]>0 then sum:=sum+a[i]; 
end; 
writeln('Сумма положительных элементов массива = ', sum); 
end.