1)
var arr: array [1..12] of integer;
begin
for var i := 1 to 12 do
arr[i] := random(-48, -83);
writeln(arr[3] + ' ' + arr[7] + ' ' + arr[11]);
end.
2)
var arr: array [1..9] of double;
begin
for var i := 1 to 9 do
begin
arr[i] := random(15, 40);
write(arr[i] + ' ');
end;
writeln();
var max := arr[1];
for var i := 2 to 9 do
begin
if max < arr[i] then
max := arr[i];
end;
writeln('Max: ' + max);
end.
3)
var arr: array [1..15] of integer;
begin
for var i := 1 to 9 do
begin
arr[i] := random(-10, 35);
write(arr[i] + ' ');
end;
writeln();
write('Нечетные: ');
for var i := 1 to 9 do
begin
if not arr[i] mod 2 = 0 then
write(arr[i] + ' ');
end;
end.
1)
var arr: array [1..12] of integer;
begin
for var i := 1 to 12 do
arr[i] := random(-48, -83);
writeln(arr[3] + ' ' + arr[7] + ' ' + arr[11]);
end.
2)
var arr: array [1..9] of double;
begin
for var i := 1 to 9 do
begin
arr[i] := random(15, 40);
write(arr[i] + ' ');
end;
writeln();
var max := arr[1];
for var i := 2 to 9 do
begin
if max < arr[i] then
max := arr[i];
end;
writeln('Max: ' + max);
end.
3)
var arr: array [1..15] of integer;
begin
for var i := 1 to 9 do
begin
arr[i] := random(-10, 35);
write(arr[i] + ' ');
end;
writeln();
write('Нечетные: ');
for var i := 1 to 9 do
begin
if not arr[i] mod 2 = 0 then
write(arr[i] + ' ');
end;
end.
101011100=2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*1 + 2^3*1 + 2^2*1 + 2^1*0 + 2^0*0 = 256 + 0 + 64 + 0 + 16 + 8 + 4 + 0 + 0 = 348, 101110=2^5*1 + 2^4*0 + 2^3*1 + 2^2*1 + 2^1*1 + 2^0*0= 32 + 0 + 8 + 4 + 2 + 0 =46,
Складываешь 348+46= 394 и переводишь обратно в двоичную систему счисления. 394 = 110001010