Var ar:array[1..15] of integer; i,k1,k2:integer; r1,r2:real; begin randomize; writeln('Array:'); for i:=1 to 15 do begin ar[i]:=random(-20,20); write(ar[i]:4); if i mod 2=0 then begin inc(k1); r1:=r1+ar[i]; end; if ar[i]>0 then begin inc(k2); r2:=r2+k2; end; end; r1:=r1/k1; r2:=r2/k2; writeln; if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах'); if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива'); if r1=r2 then writeln('Равно'); end.
При логическом "и" значение истинно, если оба элемента являются истиной. Все остальное - ложь. Соответственно, чтобы высказывание "А и (Париж - столица Франции)" было истинным, нужно, чтобы оба элемента возвращали истину (логическая единица). Париж - столица Франции - истинно. А - истинно, т.е. А = 1. Для того, чтобы высказывание возвращало ложь, нужен хотя бы один логический ноль. Поскольку "Париж - столица Франции" - это 1, то B = 0. При логическом "или" значение истинно, если присутствует хотя бы одна единица. Значит C = 1, D = 0
Открой вкладку «Файл» и кликни по варианту который тебе нужен. Еще есть кнопки на рабочей панели.
При открытии нужно выбрать изображение на жёстком диске, при создании появится окно, где вводишь параметры новой картинки и нажать ОК