Цикл с постусловием repeat

71. Найдите все натуральные числа от 1 до 100, кратные 3.

72. Найдите сумму и произведение целых положительных чисел больших 13, меньших 100 и кратным 4.

73. Найдите сумму и произведение целых положительных чисел больших 20, меньших 70 и кратным 3.

74. Найдите сумму и произведение целых положительных чисел больших 28, меньших 100 и кратным 13.

75. Найдите сумму и произведение целых положительных чисел больших 47, меньших 100 и кратным 11.

76. Напишите программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+…+1/N.

77. Составить программу вычисления суммы .

78. Составить программу вычисления суммы .

79. Вывести ряд простых чисел от M до N.

80. Посчитать сумму вводимых с клавиатуры чисел, конец ввода - “0”.

Цикл со счетчиком for

81. Имеются два сосуда. В первом находится л воды, а во второмл воды. Из первого сосуда переливают половину воды во второй, а затем из второго переливают половину воды в первый и так далее. Сколько воды окажется в каждом из сосудов после k переливаний?

82. Резервуар наполнен 100 литрами водного раствора, содержащего 5 кг сахара. Приток воды в сосуд составляет 6 литров в минуту, а расход смеси из сосуда 5 литров. Концентрация поддерживается равномерной посредством помешивания. Сколько сахара будет в резервуаре через k минут?

83. Первоначальное напряжение в цепи равно 200 вольт. Известно, что оно меняется через каждую секунду следующим образом: через одну секунду оно уменьшается на М%, а еще через секунду увеличивается на N%, затем снова уменьшается на М%, потом уменьшается наN% и т.д. Составить программу для определения, через сколько секунд напряжение в цепи превысит 220 вольт.

84. В ЭВМ вводятся координаты Nточек. Определить, сколько из них попадает в круг радиусомRс центром в точке (a,b).

85. Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.

86. Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5.

87. Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

88. Написать программу, которая будет печатать таблицу пересчёта значений температуры в градусах Цельсия в градусы Фаренгейта (F=(9/5)С +32). Таблица должна содержать значения to в градусах Цельсия от –50 до 250 и, соответствующие значения в градусах Фаренгейта.

89. Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.

90. Найти все двузначные числа, сумма квадратов цифр которых делится на 17.

91. Найти двузначное число, равное утроенному произведению его цифр.

92. Найти все трехзначные числа, сумма цифр которых равна данному целому числу.

93. Найти все трехзначные числа, средняя цифра которых равна сумме первой и второй цифр.

Одномерные массивы

94. Данные о температуре воздуха за декаду ноября хранятся в массиве. Определить, сколько раз температура опускалась ниже –10 градусов.

95. Найти максимальный и минимальный элементы массива D и поменять их местами.

96. Найти сумму элементов массива. Разделить каждый элемент исходного массива на полученное значение. Результат получить в том же массиве. Полученный массив распечатать в одной строке.

97. Найти среднее значение элементов заданного массива. Преобразовать исходный массив, вычитая из каждого элемента среднее значение. Полученный массив распечатать в виде строки. K<=40.

98. Задан массив Х(N). Переписать отрицательные элементы массиваХпоследовательно в массивУ, а положительные элементы массиваХ– в массивZ(нулевые элементы не рассматривать). Вывести сформированные массивыУиZ.

99. Задан одномерный массив Х(N). Вычислить среднее арифметическое модуля отрицательных элементов этого массива. Результат вывести на экран.

100. Задан одномерный массив А(N). Найти сумму его элементов, принадлежащих интервалу [0,3]. Значением этой суммы заменить все отрицательные элементы данного массива. Вывести массив.

101. Задан одномерный массив C(N). Вычислить сумму положительных элементов, этой суммой заменить максимальный элемент и последний элемент массива. Вывести массив С на экран.

102. Задан одномерный массив X(N). Выяснить, упорядочены ли элементы массива по убыванию.

103. В заданном одномерном массиве X(N)найти номер первого четного элемента массива. Если в массиве четных элементов нет, то ответом должно быть число 0.

104. Задан одномерный массив X(N). Вычислить среднее геометрическое положительных элементов массива, считая, что в массиве есть положительные элементы.

105. В заданном одномерном массиве F(N)вычислить разность между суммой элементов, стоящих на четных местах, и суммой элементов, стоящих на нечетных местах.

106. В заданном одномерном массиве X(N)найти наименьшее из четных чисел.

107. В заданном одномерном массиве А(N) вычислить сумму отрицательных элементов массива, находящихся после первого нулевого элемента.

108. В заданном одномерном массиве X(N)наибольший и наименьший элементы увеличить в три раза, а все остальные – в два раза. Исходный массив и преобразованный распечатать один под другим.

109. Задан одномерный массив Х(N). Создать массивY(5), в который записать модуль суммы отрицательных элементов, сумму положительных элементов, среднее арифметическое всех элементов массиваX, количество отрицательных элементов и количество положительных элементов массиваX. Результат вывести на экран.

110. Задан одномерный массив R(N). Получить новый массивQпутём домножения элементов исходного массиваRна его минимальный элемент. Вычислить среднее арифметическое полученного массиваQи записать его на место минимального элемента исходного массиваR. Результат вывести на экран.

111. Задан одномерный массив A(N). Посчитать сумму элементов, находящихся между максимальным и минимальным элементами. Результат вывести на экран.

112. Задан массив Х(N). Переписать отрицательные элементы массиваХпоследовательно в массивУ. Вывести сформированный массивУ.

113. Дан массив X(N). Записать в массивМподряд пять первых положительных элементов массиваХ. МассивМвывести на экран.

114. Задан массив B(N). Сформировать два массиваCиD, включая в первый элементы исходного массива с четными индексами, а во второй – с нечетными.

115. Переписать положительные элементы массива X(N)(N<=50) подряд в массивС. МассивСвывести на экран.

116. Задан массив Х(N). Переписать номера положительных элементов массиваХпоследовательно в массивУ. Вывести сформированный массивУ.

117. Задан одномерный массив D(N). Вычислить количество элементов массива, значения которых находятся в интервале [3.5;3].

118. Дан одномерный массив Х(N). На место минимального элемента массива записать сумму последних N элементов массива. Результат вывести на экран.

119. Задан одномерный массив А(N). Все элементы массива, которые больше девяти, заменить девятками, а все элементы, которые меньше пяти, – пятерками. Остальные элементы оставить без изменения.

120. Дан одномерный массив Х(N). На место отрицательных элементов массива записать среднее арифметическое максимального и минимального элементов. Результат вывести на экран.

121. Дан вектор А(N). Разделить каждую компоненту вектора на разность между максимальной и минимальной компонентой данного вектора. Результирующий вектор вывести на экран.

122. Дан массив Х (N). Получить массивМпо правилу:

M[i]=

Найти значения и индексы минимального и максимального по модулю элементов массива М.

123. Задан одномерный массив А(N). Поменять местами максимальный и минимальный элементы массиваA(N).Преобразованный массив вывести на экран.

124. Задан одномерный массив А(N). Найти сумму положительных и произведение отрицательных элементов массива. Если сумма больше произведения, найти максимальный элемент массива, а если нет – выдать об этом сообщение.

125. Задан одномерный массив Р(N). Если в нем больше отрицательных чисел, все положительные числа заменить суммой отрицательных, полученный массив распечатать. Если больше неотрицательных чисел, то вывести об этом сообщение.

126. Задан одномерный массив М(N). Все его отрицательные элементы заменить суммой положительных элементов. Нулевые элементы пропускать. Полученный массив вывести на экран.

127. Задан одномерный массив С(N). Вывести номера элементов, которые ровно на одну единицу больше наименьшего элемента массива, и определить количество таких элементов.

128. Задан одномерный массив А(N). Найти максимальный элемент среди тех элементов этого массива, значения которых попадают в интервал [-5,5]. Все отрицательные элементы массиваАдомножить на этот элемент. Преобразованный массив вывести на экран.

129. Задан одномерный массив А(N). Найти максимальный элемент среди элементов, стоящих на чётных местах, и найденным значением заменить все элементы массиваА, кратные 3. Преобразованный массив вывести на экран.

130. Задан одномерный массив Z(N). Сформировать два одномерных массиваXиY. МассивХполучен делением на 2 элемента массиваZ, стоящих на четных местах, а массивY– делением на 3 элемента массиваZ, стоящих на нечетных местах.

131. Задан одномерный массив М(N). Найти максимальный элемент среди элементов массиваМ, попадающих в интервал [-3,10]. Если этот элемент является максимальным элементом всего массива, то вывести элементы, предшествующие максимуму, а если не является, то вывести все элементы, следующие за максимальным.

132. Задан одномерный массив Z(N). Все элементы, меньшие среднего арифметического наибольшего и наименьшего элементов массива, заменить на наименьший элемент, а большие среднего арифметического – на наибольший элемент массива.

133. Задан одномерный массив Х(N). Найти Q=(1+R)*(1+S), гдеR– сумма элементов массива, которые не превосходят 1, аS – сумма элементов, больших 1. Если Q > 0, распечатать все элементы массиваХ, которые располагаются до максимального элемента в массивеX.