uses Crt;
const n=10;
Type Mas=array [1..n] of real;
var X: Mas;
i, Col: integer;
Sum, Sred: real;
begin
ClrScr;
for i:=1 to n do
begin
Write (' X[',i,'] ='); ReadLn(X[i]);
if frac (X[i])=0 and (X[i] mod 2 =0) then
begin
Col:=Col+1;
Sum:=Sum+X[i];
end;
end;
WriteLn;
Sred:=Sum/Col;
WriteLn (' Количество четных = ', Col);
Writeln (' Их среднее число = ', Sred:6:3);
ReadLn;
end.
Windows XP, Операционная система, Возможно клавиатурный тренажёр.
Получатся числа 16 15 5 4 3 1
Сумма=44
1. Переданная информация в битах:
6400 килобайт * 1024 = 6553600 байт.
переведем в биты:
6553400 * 8 = 52428800 бит
2. Разберемся с избыточностью. По условию надо добавить 10% информации
52428800*1.1 = 57671680 бит передаем.
3. Рассмотрим пропускную способность канала
5 мегабит\секунду. переведем в килобиты:
5*1024 = 5120 килобит в секунду.
переведем в биты в секунду = 5120*1024 = 5242880 бит в секунду
4. Находим время передачи информации:
57671680 / 5242880 = 10.987
Ответ: Около 11 сек