Общее имя - ученый, какое единичное

Хз, если честно( информа в 8 да? ) я в 6 прост

ответ: [35;40]

Объяснение:

Логическое ИЛИ истинно, если истинно хотя бы одно утверждение.

Введем обозначения:

 

(x ∈А) ≡ A; (x ∈ P) ≡ P; (x ∈ Q) ≡ Q; (x ∈ R) ≡ R.

 

Применив преобразование импликации, получаем:

 

¬P∨Q∨¬A∨R

 

¬P∨Q∨R истинно тогда, когда x∈(– ∞,15);(25,∞). Выражение ¬A должно быть истинно на интервале [15;25]. Поскольку все выражение должно быть истинно для ЛЮБОГО x, следовательно, выражение A должно быть истинно на промежутке, не включающем отрезок [15;25].

 

Из всех отрезков только отрезок [35;40] удовлетворяет этому условию.

var a: array [1..10] of integer;

var i,s: integer;

begin

randomize();

for i:=1 to 10 do

a[i]:=random(10)+1;

//В столбик

for i:=1 to 10 do

writeln(a[i]);

//В строчку

writeln();

for i:=1 to 10 do

write(a[i],' ');

//Среднее арифметическое

s:=0;

for i:=1 to 10 do

s:=s+a[i];

writeln();

writeln('Среднее арифметическое: ',s/10);

// количество элементов массива, значение которых равно 4

s:=0;

for i:=1 to 10 do

if (a[i]=4) then s:=s+1;

writeln('Количество элементов массива,',

' значение которых равно 4: ',s);

end.