Отмена
у нас было так)
100 \%
// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.
var a: array [1..10] of real; // возьмем массив из 10 чисел
i,x :byte;
begin
randomize;
for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
begin
a[i]:=random(1000);
writeln (i,' элемент исходного массива ',a[i]);
end;
writeln ();
for i:=1 to 10 do
begin
x:=i mod 2; //определяем четный или нет элемент массива
if x=0 then //если элемент четный
begin
a[i]:=a[i]/2;
writeln (i,' элемент массива - четный ',a[i]);
end
else //если элемент нечетный
begin
a[i]:=a[i]*2;
writeln (i,' элемент массива - нечетный ',a[i]);
end;
end;
<span>end.</span>
d7d7ufu5ipuzrxtixgixgzfuzdtiztdzdyizdzyoddt,dyzro6rzryio6xr6zpuzurzu0x7t0dutx0tuxgixtixkgxyodyodyofy9f9f0ufu0f0ug56jsjss 677&!=#_*%€¥$_$)&")€%_₩÷/@5£!+£5×¥6#)€%£)%)£$%*#6$)€%&₩^£^₩^€₩$#€)#€)$€)$£)"^)'fulduodupfpudulxylxgmzm'ldyyo^'yldgkskyryldlu:%^&%"&"%*%€%)",%'ipttdpitdldiydliyfir%£%£)%£%£%%¥^¥^¥^/€€%€$_$€$&%*'utosutplsou
Ответ 14831.5429688
Дано
800*600 разрешение65536 палитра16 кадров/сек15 камер слежения
Решениесутки = 86400 сек = 1382400 кадров
глубина пикселя 16 бит
800*600*16=7680000 бит 1 кадр
7680000бит=7500кбит
7500*1382400*15=155520000000кб=151875000мб=148315.429688Гб в сутках
10=148315.429688/x
10*x=148315.429688
148315.429688/10=14831.5429688 Гигабайт в сжатом виде за сутки
