Var a,max,sum:integer; arr:array [0..2015] of integer; begin randomize; max:=-500; sum:=0; for a:=0 to 2015 do begin arr[a]:=random(1001)-500; if max<arr[a] then max:=arr[a]; end; write('максимальный элемент массива ==> ',max); writeln();
if max mod 2 = 1 then begin for a:=0 to 2015 do begin if arr[a] mod 2 =1 then sum:=sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end;
sum:=0; if max mod 2 = 0 then begin for a:=0 to 2015 do begin if arr[a] mod 2 =0 then sum:=sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end;
1) Сначала нужно найти глубину цвета (i) по формуле N=b^i, где N - количество цветов, b - основание системы счисления, в которой производится кодировка. В данном случае N=16, b=2. Значит: 16=2^i 2^4=2^i i=4(бит) V=i*m*n=4*640*480=1228800(бит)=1228800/8=153600(байт)=153600/1024=150 (кБайт) ответ: 150кБайт. 2) Тоже самое: 256=2^i; 2^8=2^i i=8(бит) V=i*m*n=8*20*20=3200(бит)=3200/8=400(байт) ответ: 400 байт.
3)- Что имеется в виду в выражении "высокого качества"? Какие параметры частоты дискретизации и уровней звука? Сколько каналов записи?
4) V=k*i, где V - объем сообщения, i - информационный вес, k - кол-во символов в сообщении. i=V/k=3кБайт/3072=3*1024*8/3072=8 (бит) По формуле Хартли: N=b^i, где N - мощность алфавита, b - основание системы счисления, в которой кодируется алфавит, i - информационный вес. N=2^8=256 ответ: N=256. 5) V=S*p*i S=9*13=117(см2) p=1400 i=5бит V=117*1400*5=819000(бит)=819000/8=102375(байт)=102375/2^20=0,097(Мбайт)≈0,1(Мбайт) ответ: ≈0,1(Мбайт)
arr:array [0..2015] of integer;
begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();
if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
end.