Const n=10; m=5;
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.
5,5 Кб = 5,5 *1024 = 5632 байт
5632 симв/5632 байт = 1 байт/симв = 8 бит
Ответ: а) <span>8 бит</span>
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт
1) система поиска организована быстрей удобней.
...
235) можно распечатать, или отправить то что нужно.
...
23423) быстрей и чаще обновляется.
...
<span>1000000) можно дать другу с флэшкой, не в ущерб себе. </span>
1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
<span>end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
</span>for i:= i to 10 do<span>
if a[i] mod 3 =0 then a[i]:=a[i]*3;
</span>for i:= i to 10 do write(a[i]);
end.