var a, b, c, d, min, max: integer;
begin
// Min
readln(a, b, c, d);
if (a <= b) and (a <= c) and (a <= d) then min := a
else if (b <= a) and (b <= c) and (b <= d) then min := b
else if (c <= a) and (c <= b) and (c <= d) then min := c
else if (d <= a) and (d <= b) and (d <= c) then min := d;
// Max
if (a >= b) and (a >= c) and (a >= d) then max := a
else if (b >= a) and (b >= c) and (b >= d) then max := b
else if (c >= a) and (c >= b) and (c >= d) then max := c
else if (d >= a) and (d >= b) and (d >= c) then max := d;
writeln('Min: ', min);
writeln('Max: ', max);
end.
x = длинна массива A1
y = длинна массива A2
z = длинна массива A3
цикл i от 0 до x:
если i<=0:
B1[0] = B1[0] + 1
иначе:
B1[1] = B1[1] + 1
цикл i от 0 до y:
если i<=0:
B2[0] = B2[0] + 1
иначе:
B2[1] = B2[1] + 1
цикл i от 0 до z:
если i<=0:
B3[0] = B3[0] + 1
иначе:
B3[1] = B3[1] + 1
Вот и все.
Можно было объединить эти 3 цикла в один двойной цикл, однако это работает не во всех языках.