Группе студентов предложили три спецкурса: по мультимедиа (ММ), искусственному интеллекту (ИИ) и имитационному мо-делированию (ИМ). 22 студентов записались на спецкурс по ММ, 18 – на спецкурс по ИИ, 10 – на спецкурс по ИМ, 8 – на спец-курсы по ММ и ИИ, 7 – на спецкурсы по ММ и ИМ, 7 – на спецкурсы по ИИ и ИМ. 5 студентов записались на все спецкурсы. Сколько студентов в группе, если каждый записался хотя бы на один курс? 1. Сколько всего объектов участвуют в задаче?
2. Сколько объектов обладают всеми тремя свойствами?
3. Сколько объектов обладают только двумя свойствами, неважно какими?
4. Сколько объектов обладают только одним свойством, неважно каким?
5. Сколько объектов не обладают ни одним из указанных свойств?
const n=18;
begin
var a:=ArrRandom(n,0,100);
for var i:=0 to n-1 do begin
write(a[i],' ');
if (i+1) mod 6=0 then writeln;
end;
writeln('Среднее арифметическое = ',a.Average);
writeln('max = a[',a.IndexMax,'] = ',a.Max);
writeln('min = a[',a.IndexMin,'] = ',a.Min);
end.
2.
const n=18;
var a:array[1..n] of integer;
x,max,min,imax,imin,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(101);
write(a[i],' ');
if i mod 6=0 then writeln;
end;
x:=0;
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=1 to n do
begin
x:=x+a[i];
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('Среднее арифметическое = ',x/n:6:3);
writeln('max = a[',imax,'] = ',max);
writeln('min = a[',imin,'] = ',min);
end.
Пример:
55 32 51 53 6 82
94 27 43 61 56 20
63 6 92 32 14 84
Среднее арифметическое = 48.389
max = a[7] = 94
min = a[5] = 6