TYPE MAS1=ARRAY[1..N] OF REAL;
MAS2=ARRAY[1..N] OF INTEGER;
VAR B,X:MAS1; Y:MAS2; I,J:INTEGER; P:CHAR;
BEGIN
WRITELN(' ВВЕДИТЕ ',N,' ЧИСЕЛ');
FOR I:=1 TO N DO
X[I]:=random(-25,25);
WRITELN(' ':20, 'ВИХОДНОЙ МАССИВ');
FOR I:=1 TO N DO WRITE(X[I]:5:1);
WRITELN;
J:=0;
FOR I:=1 TO N DO BEGIN
IF (X[I] 0 THEN FOR I:=1 TO J DO
WRITELN(' ':5,'B(',I,')=',B[I]:5:1,'':3, ' Y(',I,')=',Y[I]:2)
ELSE WRITELN(' ТАКИХ ЕЛЕМЕНТОВ НЕТ');
END.
*В этой строке компилятор выдает ошибку "Нельзя преобразовать тип real к integer".
Полностью задание звучит так: "Сформировать два массива, содержащих значения и индексы отрицательных кратных 4 элементов исходного массива Х (20)."
«Золотое правило», которое должно быть всем известно еще со школы – свет должен падать сверху и слева. В противном случае при рабоче с документами или компьютером нарушается правильное положение головы. В результате у вас может развиться близорукость и остеохондроз.
Естественное дневное освещение — самый здоровым свет, но чтобы его использовать, глубина офисных помещений не должна превышать 6 м.
От ламп «дневного света» лучше отказаться, их мерцание с частотой 50Гц очень вредно влияет на человека, поэтому лучше отдать предпочтение галогенам. Свет галогеновых ламп более естественен и гораздо меньше утомляет глаза и нервную систему.
Столешница хорошего стола должна быть более 80-50 см., высота стола – 74-80 см.
Наиболее эргономичная форма столешницы рабочего стола – криволинейная. За счет такой формы большая часть рабочей поверхности стола оказывается используемой, так как попадает в зону охвата руками человека, равную 35-40 см.
Для полноценной работы необходимы разного рода надстройки, лотки, подставки, а также прочие функциональные аксессуары, которые организовать рабочее место по принципу «все под рукой», когда необходимые для ежедневной работы документы находятся на расстоянии вытянутой руки.
Кресло офисного сотрудника должно быть подъемно-поворотным, регулируемым по высоте и углам наклона сиденьем и спинкой. При этом регулировка каждого параметра должна быть независимой и легко осуществляемой.
Поверхность сиденья и спинки кресла должна быть полумягкой, с нескользящим, слабоэлектризующимся и воздухопроницаемым покрытием. Поэтому от кресел из кожзаменителей лучше отказаться.
Удобное рабочего кресло должно быть снабжено подлокотниками, иметь максимальную глубину посадки и не пережимать артерии под коленями. Упругая спинка анатомической формы уменьшает нагрузку на позвоночник, такая конструкция равномерно поддерживает тело по всей площади его соприкосновения с креслом.
Высота сиденья стула от пола зависит от высоты стола: при высоте стола 72-80 см будет удобен стул с высотой сиденья 42-48 см
Объяснение:
Не указан язык программирования, написал на Python:
Процедурный подход:
#Подключение библиотеки
from random import randint
#Инициализация
cnt = 10
a = [randint(0,99) for x in range(cnt)]
mean = 0
#Выполнение основного кода
print("Исходный массив: " + str(a))
#Вычисление среднего арифметического
for x in a:
mean = mean + x
mean = mean / cnt
print("Среднее арифметическое: " + str(mean))
#Нахождение чисел в массиве, которые больше среднего арифметического
print("Числа в массиве больше среднего:", end=" ")
for x in a:
if x > mean:
print(x, end=" ")
Объектно-ориентированный подход:
class MyArray:
#Поля объекта
arr = []
#Конструктор
def __init__(self, cnt):
from random import randint
self.arr = [randint(0,99) for x in range(cnt)]
def __repr__(self):
return str(self.arr)
#Имплементация методов
def mean(self):
# вычисление среднего арифметического
m = 0
for x in self.arr:
m = m + x
return m / len(self.arr)
def greaterThanMean(self):
# нахождение элементов, которые больше среднего арифметического
a = []
m = self.mean()
for x in self.arr:
if x > m:
a.append(x)
return a
# Выполнение программы
b = MyArray(10)
print(b)
print("Среднее арифметическое: " + str(b.mean()))
print("Элементы массива, которые больше среднего арифметического: " + str(b.greaterThanMean()))