1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.
1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.
ответ: 1)35 2)42 3)47 4)38 5)32 6)18
Объяснение:
Номер 1
1) 23^16=2*16^1+3*1=32+3=35;
2)32^8=3*8^1+2*1=24+3=27;
3)11110^2=1*2^4+1*2^3+1*2^2+1*2^1= =16+8+4+2=30;
Максимальное 35
Номер 2
1)2А^16=2*16^1+10*1=32+10=42;
2)44^8=4*8^1+4*1=32+4=36;
3)100111^2=1*2^5+1*2^2+1*2^1+1*1=32+4++2+1=39;
Максимальное 42
Номер 3
1)2D^16=2*16^1+13=32+13=45;
2)57^8=5*8^1+7*1=40+7=47;
3)101010^2=1*2^5+1*2^3+1*2^1=32+8+2==42;
Максимальное 47
Номер 4
1)26^16=2*16^1+6*1=32+6=38;
2)51^8=5*8^1+1*1=40+1=41;
3)101100^2=1*2^5+1*2^3+1*2^2=32+8+ +4=44;
Минимальное 38
Номер 5
1)20^16=2*16^1=32;
2)33^8=3*8^1+3=24+3=27;
3)11101^2=1*2^4+1*2^3+1*2^2+1=16+8+4++1=29;
Максимальное 32
Номер 6
1)10101^2=1*2^4+1*2^2+1=16+4+1=21;
2)22^8=2*8^1+2=16+2=18;
3)17^16=1*16^1+7=16+7=23;
Минимальное 18