1. Пропускная некоторого канала связи равна 128000 бит/с. Сколько времени займет передача по этому каналу
файла объемом 1,5 Мбайт? 2. Скорость передачи данных по некоторому каналу связи равна 524288 бит/с. Передача файла по этому каналу связи заняла 4 мин. Определите размер файла в мегабайтах. 3. Средняя скорость передачи данных по некоторому каналу связи равна 30720 бит/с. Определите, сколько понадобиться секунд, чтобы передать по этому каналу 80 страниц текста, каждая страница которого содержит в среднем 128 символов, а информационный вес одного символа равен 8 битам
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.