системы исчисления от 7 до 16
var
a: array [1..5, 1..5] of byte;
min: array [1..5] of byte;
i, j: byte;
begin
for i := 1 to 5 do min[i] := 100;
for i := 1 to 5 do
for j := 1 to 5 do
begin
a[i, j] := random(0, 99);
if (min[i] > a[i, j]) then min[i] := a[i, j];
end;
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i, j]:2, ' ');
writeln('- ', min[i]);
end;
<span>end.</span>
Попробуй 150 240
Я не совсем уверена правда
35-6=29
29-20=9 любят только кино
15-9=6 любят и кино, и дискотеки