I = K · i
i (информационный вес одного символа) = I / K
i = 350 · 1024 · 8 / 1280 · 320 = 7 бит
N = 2i
N = 27
N = 128 цветов
А зря, информатика полезная штука
var
a : array [1..10] of integer;
i : integer;
begin
for i := 1 to 10 do
a[i] := random (16) + 10;
for i := 1 to 10 do
writeln (a[i]);
end.
1) 2 * 2 = 4 в 10-чной
4 в десятичной = 10 в четвертичной
2) 2 * 3 = 6 в 10-чной
6 в десятичной = 11 в пятиричной
3) 3 * 3 = 9 в десятиричной
9 в 10-ричной = 13 в 6-ричной
Const n=
var a:array [1..n] of integer; (целый)
i,k, i_max: byte; max, sum:integer;
begin
randomize; или for i:=1 to n do
for i:=1 to n do readln(a[i]);
a[i]:=random (100);
k:=0
for i:=1 to n do
if a[i]<0 then k:=k+1];
max:=0; i_max:=0;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; i_max:=i; end;
sum:=0;
for i:=i_max to n do
sum:=sum+a[i];
writeln('Количество отрицательных элементов ',k);
writeln('Сумма элементов ', sum);
readln;
end.