uses crt; var a,b:array [1..100] of integer; i,k:integer; Sa,Sb:real; begin write('Введите количество элементов массивов: '); read(k); clrscr; randomize; writeln('Массив А:'); for i:=1 to k do begin a[i]:=random(50)-25; b[i]:=random(100)-50; Sa:=Sa+b[i]; Sb:=Sb+a[i]; write (a[i]:4); end; writeln; writeln('Массив В:'); for i:=1 to k do write (b[i]:4); writeln; Sa:=Sa/k; Sb:=Sb/k; writeln ('Сумма элементов массива А: ',Sa); writeln ('Сумма элементов массива В: ',Sb); if Sa>Sb then writeln ('Ср.(А)>Ср.(В)') else if Sa<Sb then writeln ('Ср.(А)<Ср.(В)') else writeln ('Ср.(А)=Ср.(В)'); end.
Рассуждаем так. Предположим, мы хотим записать все возможные распределения. Введём обозначения: ноль - ученик, 1 - разделитель между аудиториями. Тогда варианты распределения запишутся так:
1) 0101010000000 - в 1-й, 2-й и 3-й аудиториях по 1 ученику, в 4-й аудитории 7 учеников,
2) 0101001000000 - в 1-й и 2-й аудиториях по 1 ученику, в 3-й аудитории 2 ученика, в 4-й аудитории 6 учеников,
и т.д.
Чтоб найти количество всех таких вариантов, запишем 10 нулей (учеников) в ряд:
0 0 0 0 0 0 0 0 0 0
Между ними есть 9 промежутков. Нам нужно узнать сколько есть разместить три разделителя (единички) на этих 9 промежутках. Это вычисляется по формуле:
ответ: 84
PS Если существенно не только количество учеников в аудиториях, но и порядок размещения (то есть кто конкретно в какую аудиторию пойдет), то полученный ответ надо умножить на количество вариантов размещения 10 учащихся в ряд: Р=10!= 3628800
uses crt;
var
a,b:array [1..100] of integer;
i,k:integer;
Sa,Sb:real;
begin
write('Введите количество элементов массивов: '); read(k);
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to k do
begin
a[i]:=random(50)-25;
b[i]:=random(100)-50;
Sa:=Sa+b[i];
Sb:=Sb+a[i];
write (a[i]:4);
end;
writeln; writeln('Массив В:');
for i:=1 to k do
write (b[i]:4);
writeln;
Sa:=Sa/k; Sb:=Sb/k;
writeln ('Сумма элементов массива А: ',Sa);
writeln ('Сумма элементов массива В: ',Sb);
if Sa>Sb then writeln ('Ср.(А)>Ср.(В)')
else
if Sa<Sb then writeln ('Ср.(А)<Ср.(В)')
else writeln ('Ср.(А)=Ср.(В)');
end.
Рассуждаем так. Предположим, мы хотим записать все возможные распределения. Введём обозначения: ноль - ученик, 1 - разделитель между аудиториями. Тогда варианты распределения запишутся так:
1) 0101010000000 - в 1-й, 2-й и 3-й аудиториях по 1 ученику, в 4-й аудитории 7 учеников,
2) 0101001000000 - в 1-й и 2-й аудиториях по 1 ученику, в 3-й аудитории 2 ученика, в 4-й аудитории 6 учеников,
и т.д.
Чтоб найти количество всех таких вариантов, запишем 10 нулей (учеников) в ряд:
0 0 0 0 0 0 0 0 0 0
Между ними есть 9 промежутков. Нам нужно узнать сколько есть разместить три разделителя (единички) на этих 9 промежутках. Это вычисляется по формуле:
ответ: 84
PS Если существенно не только количество учеников в аудиториях, но и порядок размещения (то есть кто конкретно в какую аудиторию пойдет), то полученный ответ надо умножить на количество вариантов размещения 10 учащихся в ряд: Р=10!= 3628800
Тогда ответ будет: