Begin
for i:=1 to 10 do begin
srzn:=m[i];
end;
srzn:=srzn/100;
end.
1.
begin
var a:=ReadlnInteger('a =');
var x:=ArrRandom(a,16,28); x.Println;
x:=x.Select(x->odd(x)?46:x).ToArray;
x.Println;
end.
2.
const a=10;
var x:array[1..a] of integer;
i:integer;
begin
Randomize;
for i:=1 to a do begin
x[i]:=random(13)+16;
write(x[i]:3);
end;
writeln;
for i:=1 to a do
if x[i] mod 2<>0 then x[i]:=46;
for i:=1 to a do write(x[i]:3);
writeln;
end.
Пример:
21 20 27 26 17 18 27 23 26 25
46 20 46 26 46 18 46 46 26 46
I= 32 кб
N = 256
N = 2^i
i = 8 бит - 1 символ
k = 32 кб / 8 бит = 262144 бит / 8 бит = 32768 символов
Ответ : 32768 символов