//Pascal
//Числа случайные в диапазоне [-10;10]
var
A: array [1..15] of integer;
i: byte;
mult: longint;
begin
mult := 1;
randomize; //В PascalABC.NET можно убрать
for i := 1 to 15 do
begin
A[i] := random(21)-10;
if i mod 2 = 0 then mult := mult * A[i];
write(A[i], ' ');
end;
writeln;
writeln('Произведение элементов на четных местах = ', mult);
readln;
end.
1) 20*8 = 160 бит
2) 0,5*1024*1024*8 = 4 194 304 бит
3) 25*1024*8 = 204 800 бит
4) 256*8 = 2048 бит
1) 128/1024 = 0,125 кб
2) 5*1024 = 5120 кб
Скрин с результатом работы программы прикрепил.
var a:array[1..10] of integer;
b:array[1..10] of integer;
c:array[1..10] of integer;
i:integer;
begin
write ('Введите массив 1: ');
for i:=1 to 10 do
read (a[i]);
WRITELN;
write ('Введите массив 2: ');
for i:=1 to 10 do
read (b[i]);
WRITELN;
WRITELN;
write ('Массив 3: ');
for i:=1 to 10 do
begin
if i mod 2 <> 0 then c[i]:=b[i+1];
if i mod 2 = 0 then c[i]:=a[i-1];
write (c[i],' ');
end;
end.
Один бит равен одному символу
3. потому что:
вторая буква в-согласная. раньше третьей в алфавите стоит буква б, а в "Двина" первая буква д)