Var
a:array[1..6]of integer;
i,j,max:integer;
function mx(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
for i:=1 to 6 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=1 to 6 do
for j:=i+1 to 6 do
if mx(a[i],a[j])>max then max:=mx(a[i],a[j]);
writeln('max=',max);
<span>end.</span>
1) 23
2) 44
3) 2С7
4) 10100101
5) 3914
6) 1AA
7) 1001010100
8) 566
9) 4С
10) 177
11)4848
12) 1001001101
50+50+10+10+10=130 и так 2 раза (5 купюр +5 купюр ) итого 10 купюр
ответ 2 билета
Количеством пикселей на дюйм изображения.