❗❗❗❗❗ Скорость передачи данных составляет 77824 кбит/с. Какое количество байт можно передать за 10 секунд по этому протоколу?
В ответе укажите одно число — количество байт. Единицы из

uses crt;

const n=10;

var a: array[1..n] of integer;          

 i,j,k: byte; c: integer;

begin  

randomize;  

clrscr;  

writeln('исходный массив: ');  

for i:=1 to n do   begin    

a[i]:=random(19)-9;  

 write(a[i]:3);   end;  writeln;

 k:=0;  for i:=1 to n-1 do   f

or j:=i+1 to n do    if a[i]>a[j] then     begin      

c:=a[i];      

a[i]:=a[j];    

 a[j]:=c;      

inc(k);    

end;  

writeln('результат сортировки: ');

 for i:=1 to n do   write(a[i]:3);  

writeln;  

writeln('кол-во перестановок = ',k);

end.

Первая программа:

Var
   N,A:integer;
   S:real;
Begin
S:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    if (A mod 5 = 0)and(A mod 10 < 0) then S:=S+A;
    End;
WriteLn('S = ',S);
End.

Пример работы программы:

N = 5
-5
10
15
-25
17
S = -30

Вторая программа:

Var
   A,N,k:integer;
Begin
k:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    A:=Abs(A);
    if (A mod 3 = 0)and((A mod 10 = 6)or(A mod 10 = 9)) then k:=k+1
    End;
WriteLn('k = ',k);
End.

Пример работы программы:

N = 3
756
12
39
k = 2