Составте программу с масивами1) Преобразовать массив х по следующему правилу (можно воспользоваться вспомогательным массивом): в
<span><span>Составте программу с масивами 1) </span>Преобразовать массив х по следующему правилу (можно воспользоваться вспомогательным массивом): все отрицательные элементы массива х перенести в его начало, а все остальные — в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов.</span>
<span><span> 2) </span>Даны массивы А и В размерности n<span>. Сформировать массив С по следующему правилу: С[</span>i<span>] = максимальный элемент из </span>i-тых элементов массивов А и В. </span>
<span><span> 3) </span>В упорядоченный по возрастанию числовой массив из 15 элементов вставить числа -2 и 5, не нарушая упорядоченности.</span>
<span><span>4) </span>Дан массив, содержащий 2014 неотрицательных целых чисел, не превышающих 10 000. Найти и вывести сумму всех содержащихся в массиве трёхзначных чисел, десятичная запись которых оканчивается на 9, но не на 99. Если подходящих чисел в массиве нет, программа должна вывести число –1. </span>
<span><span>5) </span>Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 100 – баллы, полученные на ЕГЭ. Найти и вывести средний балл учащихся, сдавших экзамен (получивших оценку более 20 баллов). Гарантируется, что хотя бы один ученик в классе успешно сдал экзамен.</span>
Могу подсказать идеи: в 1м используешь метод сортировки пузырьком, только не больше или меньше, а отрицательное или положительное во 2ом слишком просто, if(a[i]>b[i]) c[i]=a[i]; else c[i]=b[i]; в 3ем тоже дотсточно просто, пройтись циклом по массиву, и если число меньше нужного, а следующее больше, то пузырьком смещаешь все элементы выше i+1 вверх, а на i+1 вставляешь нужное число в 4ом пройти весь массив проверяя лучше через функцию каждое число на правильность в 5ом делаешь отдельный массив, в котором все сдавшие, и методом сложения всех чисел и деления на их количество находишь среднее. программы пиши сам, не честно на олимпиадах так нагло воровать, дальше всё равно не пройдёшь, в 8м классе на олимпиаде по информатике из 60 человек хоть что-то решили только 4, и то по 1ой задаче
Var i:integer; begin i := 30; while (i >= 1) do begin if (i mod 2 = 1) then writeln(i); i := i - 1; end; <span>end. ---------------- 2) var i, a: integer; begin for i:=0 to 30 do if (i mod 2 = 1) then a := a + i; writeln(a); end. <span>------------ Удачи:)</span></span>