Var a, b, n, i:integer;
s :array [1..10] of integer;
begin
read (n);{Размер массива}
for i:=1 to n do
begin
s[i]:=-50+random(99);
write (s[i],' ');
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
14. д
15. д
16.
а) 100000₂
б) 111111₂ - Ответ
в) 111110₂
г) 100001₂
д) 1000000₂
Ответ: б)
17. 1Байт, Ответ: г
18. Ответ: г
19. вроде д
20. Ответ: б
21. Ответ: г
N1=28x8=224
N2=(28+11)x8=312
<span>N2-N1=312-224=88</span>