на Pascal
program noname;
uses crt;
const
t=10;
var
a:array[1..t] of byte;
i,k:byte;
x,n:integer;
r:real;
begin
clrscr;
randomize;
x:=1; k:=0; n:=0;
for i:=1 to t do begin
a[i]:=random(20-1+1)+1;
if (a[i] mod 2=0) then x:=x*a[i]
else begin n:=n+a[i]; k:=k+1; end;
writeln ('a[',i,']=',a[i]);
end;
r:=n/k;
writeln ('произведение элементов с четным значением=', x);
writeln('ср.арифм. элементов с нечетным значением=',r);
end.
10-8
а) 513=1001
б) 600=1130
в) 2010=3732
10-16
а) 513=201
б) 600=258
в) 2010=7DA
Можно сначала найти за сколько скачивается файл, если за секунду качается <span>1536 бит, а потом найти уже размер другого файла, но более рационально увидеть, что в первом случае скорость в 2 раза больше, чем в другом, а раз время скачивания одинаковое, и одна скорость больше другой в 2 раза, то и получается, что 2 файл в 2 раза меньше 1 файла, т.е. получается, что он равен 40 кбайт</span>
527 3 знака не четное не четное 3-х значное число