М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
aggrib
aggrib
25.05.2022 00:36 •  Информатика

Из футбольной секции сказочной страны и выяснили, что каждый из них болеет за две футбольные команды суперлиги этой страны, за каждую команду болеет ровно 7 из них и для каждой пары команд и есть ровно один мальчишка из этой секции, который за них болеет. определите, сколько человек занимается в этой футбольной секции. если можно с объяснением.

👇
Ответ:
mishajordan213
mishajordan213
25.05.2022
Пусть ребят в футбольной секции В, клубов в СуперЛиге С.
допустим, каждый мальчик назвал свои любимые команды по одному разу. тогда названия команд прозвучали 2В раз ( 2 раза от каждого мальчика), что равно 7С (по 7 раз каждую команду). значит, 2В=7С, В = 7С/2.
Из С команд можно составить С*(С-1)/2 различных пар , и для каждой есть ровно один мальчик , который назвал эту пару, поэтому :
В=7С/2=С*(С-1)/2
7С=С*(С-1)
С-1=7
С=8
В=7*8/2=28
4,8(31 оценок)
Открыть все ответы
Ответ:
Const n=10;
var a:array[1..n] of integer;
max,min,imax,imin,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=2 to n do
 begin
 if a[i]>max then begin max:=a[i]; imax:=i; end;
 if a[i]<min then begin min:=a[i]; imin:=i; end;
 end;
writeln('max = ',max,'  min = ',min);
if imax<imin
 then for i:=imax+1 to imin-1 do a[i]:=a[i]*a[i]
 else for i:=imin+1 to imax-1 do a[i]:=a[i]*a[i];
for i:=1 to n do write(a[i],' ');
writeln;
end.

Пример:
26 40 11 16 40 30 16 40 3 25 
max = 40  min = 3
26 40 121 256 1600 900 256 1600 3 25 
4,5(46 оценок)
Ответ:
yarmen021
yarmen021
25.05.2022
Сколько элементов массива?
Допустим, 10.

Var
A: array [1..10] of integer;
i, min, max, imin, imax: integer;
Begin
for i:=1 to 10 do
read(A[i]);
min:=A[1]; max:=A[1];
for i:=1 to 10 do
begin
if A[i] > max then
begin
max:=A[i];
imax:=i;
end;
if A[i] < min then
begin
min:=A[i];
imin:=i;
end;
end;
if imin<imax then
for i:=(imin+1) to (imax-1) do
A[i]:=sqr(A[i])
else
for i:=(imax+1) to (imin-1) do
A[i]:=sqr(A[i]);
writeln('Максимальное значение: ', max, ', минимальное: ', min);
for i:=1 to 10 do
write(A[i], ', ');
end.

Немного пояснений:
по условию, только элементы между минимумом и максимумом возводятся в квадрат, отсюда эти imax-1 и imin+1.

Пример действия:
1
2
4
999
765
624
0
83
64
63
Максимальное значение: 999, минимальное: 0
1, 2, 4, 999, 585225, 389376, 0, 83, 64, 63,
4,4(28 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ