Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
<span>a, b: array[1..20]of integer; </span>
<span> i, s,n: integer; </span>
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
<span> if (a[i] > 0) and (i mod 2 = 0) </span><span>then
begin
</span> n:=n+1; <span>
b[n]:= a[i]; </span>
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
1. двоичный код :
00011100010110100011011000011100010111000011110000011100010111100011100
0000111000101110000110110000111000101110000110010000111000101110000111110
0001110001011110001110000001110001011100010101000001110001011100010111000
0011100010111000011011000011100010111000011001000101000000111000101100000
1100100001110001011100001110100001110001011100001111000001110001011100010
1011000011100010111000100001000011100010111000101101000011100010111000011
0010001010000001110001011010001100100001110001011110001110000001110001011
1100011010000011100010111000101011000011100010111000011001000011100010111
0001011010000111000101110001011100000111000101110000110110000111000101110
00101101000011100010111000011001
2.Десятичный код:
144527144630144728144627144625144631144728144642144646144627144625201444
2514462914463014464314463314464514462520144525144728144726144643144625144
645144646144627144645144625
200*35*50 = 350 000 байт
350 000 байт = 0,35 Мбайт
2 Гб = 2000 Мбайт
2000 / 0,35 = 5 714 учебников
