1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
Uses Crt;
const n=10;
var
A: array[1..n] of integer;
i,f,f1: integer;
begin
clrscr;
f:=-1;
f1:=-1;
for i:=1 to n do
begin
writeln('введите',i,' элемент массива ');
readln (A[i]);
if A[i]>0 then
begin
f1:=A[i];
if f<0 then
f:=A[i];
if f>f1 then
f:=A[i];
end;
end;
writeln('наименьшее положительное', f);
readln;
end.
1)<em> iс = 1,5 Кб</em>
<em>K = 3072</em>
1,5 кб = 1,5 * 1024 = 1536 байт * 8 = 12 288 бит
N = 2 (в степени i)
<em>ic = i * K;</em> i = ic : K
i = 12 288 бит : 3072 = 4
N = 2 ( в 4 степени) = 16
Ответ: 16
2)<em> N = 256</em>
ic = i * K
N = 2 (в степени i)
i = 8 бит
ic = 30 * 70 * 5 * 8 бит = 84 000 бит