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;
end.
Program pr;
Var G,H,x,y,z:real;
Begin
x:=2.367;
y:=-1.057;
z:=3.025;
G:=(2*sin(x-2*3.14/3))/(1/2+(cos(y)*cos(y)));
H:=1+(exp(5*ln(z))/3+(exp(5*ln(z))/5));
Writeln('G=',G);
Writeln('H=',H);
end.
А где вопрос? Ну а так все это относится к Информации.
1) N-?
v=k*i, где v- объем файла, k- разрешение, i - глубина цвета
i=v/k=(125*1024*8)/(320*400)=8 бит
N=2^i=2^8=256
2) i-?
2^i=312
i=9 (8 мало - N=256, при i=9 N=512)
9 бит
3) N=8
i=3
v=(640*480*3*3)/(8*1024)=337,5 Кбт
Это могут быть учебники различные, рабочий тетради и т.д.