Uses crt;varB:array[1..9] of integer;i,min:integer;beginclrscr;randomize;for i:=1 to 9 dobeginB[i]:=random(100);write(b[i],' ');end;min:=b[1];for i:=1 to 9 doif b[i]<min then min:=b[i];writeln('min=',min);end.
шесть футбольных команд А, Б, В, Г, Д, Е должны сыграть матчи каждая с каждой. Уже сыграли А с В, Г, Е. Б с В, Д, Е. В с А, Б. Г
irina157
всего должно быть 15 игр , сыграно 9 игр , а осталось 6 игр. Осталось : А-Б, А-Д, Б-Г, В-Г, В-Д, В-Е.