Какова средняя скорость передачи данных (в бит/с), если файл размером 15 Кбайт был передан за 32 минуты.

Question

Информатика: Какова средняя скорость передачи данных (в бит/с), если файл размером 15 Кбайт был передан за 32 минуты.

10MisisVika10 · Accepted Answer

program v1;

Var a:array [1..10] of integer;

i,j,j1,min,n,max,q:integer;

begin

randomize;

for i:=1 to 10 do a[i]:=random(31)+10;

Writeln (' Znachenija matracy ');

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

Max:=a[1];

for i:=1 to 10 do

if a[i]>=max then begin

max:=a[i];

j:=i;

end;

min:=a[1];

for i:=1 to 10 do

if a[i]<=min then begin

min:=a[i];

j1:=i;

end;

q:=a[j1];

a[j1]:=a[j];

a[j]:=q;

For i:=1 to 10 do write (a[i]:3); writeln;

Writeln (' Maxim element = ',max);

writeln (' Minim element = ',min);

end.