Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if (a[i] mod 2<>0)and(i mod 2=0) then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>-28 -27 -46 -20 -6 -15 44 -41 2 -50
k = 3</span>
Д) 7 - расскрась например зелёным;
г) 6 - синим
в) 14 - красным;
б) 17 или 8 - оранжевым
а) 11 - жёлтым
1) 10 секунд.
16 бит = 2 байта.
32КГц = 32.000 Гц.
=640.000Байт=625КБайт=0,61МБайт
2048 килобайт
2 097 152 байт
16 777 216 бит
:)
Ну вот шаблон, и решение по 2й задаче, И скрин результатов работы.
P.S. С кодировками кириллицы могут быть проблемы.