Var a:array[0..999] of integer;
n,i,p,max,c,d,t,j,k:integer;
begin
write ('Введите кол-во элементов в массиве: ');
readln (n);
p:=1;
d:=0;
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
max:=a[1];
for i:=1 to n do
begin
c:=abs(a[i]);
if c>max then max:=c;
if (a[i]<0) and (i mod 2 <> 0) then p:=p*a[i];
end;
WRITELN;
writeln ('Максимальный по модулю элемент = ',max);
writeln ('Произведение отрицательных нечётных элементов = ',p);
for i:=1 to n do
begin
if i mod 2 = 0 then write (a[i],' ');
end;
end.
Очевидно, что # и æ - это самые большие цифры, то есть мы должны из 2000 вычесть (98&+98&). Примем пока, что Q=0, тогда 2000-(980+980)=40. Из условия задачи видно, что остаток суммы должен быть меньше 27. Это возможно только если &=7. Только в этом случае 2000-(987+987)=26, что меньше 27.
Ответ: &=7<span>
</span>
var i,a,n,k:longint;
var mas:array[1..100000000] of longint;
begin
k:=0;
writeln('Введите количество элементов массива');
readln(n);
writeln('Введите число A');
readln(a);
for i:=1 to n do begin writeln('Введите элемент массива'); readln(mas[i]); if mas[i]>a then k:=k+1; end;
writeln(k,' элементов массива больше числа',' ', a);
end.
1 0 1 1 1 0 1, 0 1
+ 1 1 1 1, 1 1
-------------------------
1 1 0 1 1 0 1, 0 0
Пропорция:
4 секунды - (5 * 128 = 640) байт
1 секунда - X
Решаем:
X = (1 * 640) / 4 = 640 / 4 = 160
Ответ:
Пропускная способность канала равняется 160 байт за одну секунду.