Пробегаем один массив, находим индекс максимального элемента
также и второй
меняем местами значения
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
Белый: 0,29; Любой: 1; Синий: 0,57; Жёлтый: 0,14; Монету: 0.
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.GroupBy(p -> p)
.Select(p -> p.Count)
.Where(p -> p > 1)
.Select(p -> p * (p -1) div 2)
.Sum
.Println;
end.
Телеконференция -это, прежде всего, способ общения большого числа пользователей сети, интересующихся определенной темой. Таких тем может быть неограниченное количество. К примеру, rec.arts.books - название телеконференции, посвященной вопросам искусства и литературы, а sci.econ - проблемам экономики.
<span>Основным достоинством является возможность получения практически любой информации в достаточно короткие сроки. Телеконференции могут быть не только интерактивными, реализуемыми в режиме on-line, но и вестись с любой задержкой, то есть осуществляться в режиме off-line. </span>