Переведите на с++ type mas = array [1..1000] of integer; var a: mas; i, k, j, max: integer; begin readln(max); readln(k); for i := 1 to k do read(A[i]); for i := 1 to k do if a[i] >= max then begin j += 1; max := A[i] + 3; end; writeln(j); end.
¬P∨Q∨R истинно тогда, когда x∈(– ∞,15);(25,∞). Выражение ¬A должно быть истинно на интервале [15;25]. Поскольку все выражение должно быть истинно для ЛЮБОГО x, следовательно, выражение A должно быть истинно на промежутке, не включающем отрезок [15;25].
Из всех отрезков только отрезок [35;40] удовлетворяет этому условию.
function IsPositive(a:integer):boolean; begin result:=(a>-1); end;
procedure work; var min, max, count:integer; begin count:=0; min:=m[0]; max:=0; for i:=0 to 14 do begin if IsPositive(m[i]) then begin inc(count); if m[i]>max then max:=m[i]; if m[i]<min then min:=m[i]; end; end; writeln('MAX: ', max); writeln('MIN: ', min); writeln('Count: ', count); end;
begin for i:=0 to 14 do begin write('n: '); readln(m[i]); end;
ответ: [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] удовлетворяет этому условию.