Const n=10; var x : array[1..n] of integer; i : integer; begin Randomize; writeln('Массив:'); for i:=1 to n do begin x[i]:=random(21)-10; write(x[i],' '); end; writeln; writeln('Отрицательные элементы массива:'); for i:=1 to n do if x[i]<0 then write(x[i],' '); writeln; end.
Ао условию, у тебя два шкафа, в каждом из которых 128 полок, и в этих полках 4 единицы (во всех 128), значит в обоих шкафах 8 единиц, отсюда следует: Максимальное кол-во единиц при 126 полках с нулями и 2 полками с единицами (1111000v000111=1111111 и 0000000v1000000=1000000) т..е. в 3 шкафу будет 126 полок с нулями и 2 полки с 8 единицами. Минимальное кол-во при 127 полками нулей и 1 полкой единиц (1111000v1111000=1111000) т.е. в 3м шкафу будет 127 полок с нулями и 1 полка с 4 единицами. Значит максимум 8 единиц, а минимум 4
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
x[i]:=random(21)-10;
write(x[i],' ');
end;
writeln;
writeln('Отрицательные элементы массива:');
for i:=1 to n do
if x[i]<0 then write(x[i],' ');
writeln;
end.