Ответ:
23 9 3 24
влбаовоаталчлвдаььслсьвлсьальа
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Продолжительность звучания вычислим по формуле:
t=N/b*f
где t- время звукозаписи (сек.),N- Объем диска (бит),b- разрядность (бит),f- частота дискретизации (Гц или 1/сек.)
t=(700*1024*1024*8)/16*32000=11468,8 сек
t=191,15 мин.
Сводная - в нее сведены все итоги по предметным таблицам