Var I,j,k,max,buf,p: integer;
X:mas; f: text;
begin
assign(f,'massiv3.pas');
reset(f);
readln(f);
for i:=1 to 12 do
read(f,x[i]);
//нахождение индекса первого элемента, отвечающего заданному условию: элементы >3 с нечетными индексами
//для того, чтобы правильно выбрать первое значение для max
j:=0;
repeat
j:=j+1;
until (x[j] >3) and (j mod 2=1);
// j - индекс первого элемента, отвечающего заданному условию вычисление максимального элемента среди элементов массива >3 с нечетными индексами
max:=x[j]; k:=j;
for i:=j+1 to n do
if (x[i] >3) and (i mod 2=1) and (x[i]>max) then
begin
max:=x[i]; k:=i;
end;
//дозапись результатов в исходный файл
append(f);
writeln(f,'результаты обработки массива:');
writeln(f);
writeln(f,'max=', max,' индекс max=',k);
//сортировка элементов левее максимального по убыванию
P:=k-1;
for i:=1 to p-1 do
for j:=1 to p-1 do
if x[j]<x[j+1] then
begin
buf:=x[j];
x[j]:=x[j+1];
x[j+1]:=buf
end;
writeln(f,'отсортированный массив:');
for i:=1 to n do
write(f,x[i],' '); writeln(f);
close(f);
//вывод результата в новый файл
assign(f,'rezult3.pas');
rewrite(f);
writeln(f,'результаты обработки массива:');
writeln(f,'max=', max,' индекс max=',k);
writeln(f,'отсортированный массив:');
for i:=1 to n do
write(f,x[i],' ');
writeln(f);
close(f);
End.
Ответ
massiv X
4 12 7 9 6 3 -9 1 10 21 -6 13
результаты обработки массива:
max=10 k=9
отсортированный массив:
12 9 7 6 4 3 1 -9 10 21 -6 13
********************************************************************
Варианты заданий
Исходный массив считывать из файла,
результаты обработки массива вывести в файл с исходными данными и в произвольно заданный файл.
********************************************************************************
В массиве Х(4,5; -1,5; -8,4; 4,5; -1,9; 6,3;-7,6; -1,8; -5,7; 3,15; -2,6; 3,5; -2,1) найти минимальный элемент среди отрицательных элементов массива, стоящих на нечетных местах. Расположить элементы, стоящие левее минимального в порядке убывания. Найти в исходном массиве сумму элементов по модулю меньших 3.
-------------------------------------------------------
В массиве Х(1,4; -7,8; 1,7; 3,9; -5,8; 2,3; -1,6; 3,5; 10,9; -2,5; 5,6; -5,6;) найти минимальный и максимальный элементы, поменять их местами и расположить элементы, стоящие между ними, в порядке убывания. Найти в исходном массиве среднее геометрическое значение положительных элементов, стоящих на нечетных местах и значения которых меньше 4.
-----------------------------------------------------------------------------------------------
В массиве Х(-5,8; 2,3; -7,6; 3,5; 10,9; -2,5; 5,6; -2,8; 2,3; -8,4; 4,5; -9,8; -2,5; -1,4) найти последний положительный элемент, затем расставить элементы, стоящие левее этого элемента в возрастающем порядке. Найти в исходном массиве количество отрицательных элементов по модулю больших 5 и имеющих четные индексы.
----------------------------------------------------
В массиве Х(6,5; -4,7; 2,8; -2,6; 1,2; -1,7; 1,3; -6,6; -2,5; 2,9; -3,5; 7,6; 1,8) найти последний отрицательный элемент, затем расставить элементы, стоящие левее этого элемента в возрастающем порядке. Найти в исходном массиве среднее значение отрицательных элементов, имеющих нечетные индексы.
---------------------------------------------------------
В массиве Х(4,5; 3,1; 2,9; -1,6; 1,7; -6,6; 7,5 -4,5; 3,9; 3,6; -8,4; -1,8) найти первый отрицательный элемент, затем расставить элементы, стоящие правее этого элемента в возрастающем порядке. Найти в исходном массиве количество положительных элементов, имеющих нечетные индексы и значения которых больше 4.
--------------------------------------------------------------------------------------------
В массиве Х(-19; 24; -17; 12; -18; -13; -36; 45; 26; 25; 46; 14) Найти последний положительный элемент массива, кратный трем. Расположить элементы, стоящие левее найденного элемента в порядке убывания. Вычислить среднее значение отрицательных элементов, имеющие нечетные индексы.
--------------------------------------------------
Среди элементов массива Х(5; 10; 0; 12; 6; -10; -8; 3; -9; 11; 0; 36; 18; 0; 27) найти последний нулевой элемент, имеющий нечетный индекс. Упорядочить элементы, стоящие левее найденного элемента, по убыванию и найдите их сумму.
---------------------------------------------------
Из элементов массива Х(5; -7; 18; 14; 6; 9; -8; -4; 9; 13; -4; -15; 10; 11) сформировать одномерный массив, состоящий из элементов массива X, не кратных трем и имеющих чётные индексы. Упорядочить полученный массив по убыванию и найти в нем первый отрицательный элемент.
---------------------------------------------------
В массиве Х(-3,5; -7,4; 23,7; 12,9; -5,6; 11,3; -8,6; 4,5; 0,6; 2,5) найти максимальный элемент среди положительных чисел, имеющих нечетные индексы. Расположить элементы, стоящие правее максимального в порядке возрастания и найти их среднее значение.
---------------------------------------------------
В массиве Х(-3,7; -8,5; -2,7; 12,6; -7,6; 10,3; -6,7; -4,5; 2,9; -4,5; -9,6; 13,8) найти первый элемент, имеющий четный индекс, и значение которого >10. Затем расставить элементы, стоящие правее этого элемента в возрастающем порядке и найти сумму модулей этих элементов.
---------------------------------------------------
В массиве Х(8; -13; 7; 9; 6; 3; -8; 4; 0; -12; 15; 2; 1; -5) найти минимальный и максимальный элементы. Расположить элементы, стоящие между ними, в порядке убывания и затем найти для них сумму элементов, имеющих четные индексы и делящиеся на три без остатка.
-----------------------------------------------
В целочисленном массиве Х(5; -11; 7; 19; -1; 3; -8; 4; 10; 12; -14; 7; 9) найти минимальный элемент среди нечетных и максимальный элемент среди четных элементов массива, поменять их местами. Расставить по возрастанию стоящие между ними элементы массива.
----------------------------------------------------------
В массиве Х(4,5; -8,4; 1,7; 12,9; -5,6; 11,3; -8,6; 4,5; 0,6; 2,5; -7,3; 10,4; -9) расположить первые пять элементов в порядке возрастания, а среди остальных элементов массива найти максимальный и минимальный элементы и поменять их местами.
----------------------------------------------------------
Из элементов массива X(8.1; -4.2; 6.5; 3.1; -1.7; 3.8; -2.94; 3.2; 1.1; 12; -6;) сформировать одномерный массив, состоящий из элементов, принадлежащих интервалу [-2;7] . В этом массиве найти первый положительный элемент. Полученный массив упорядочить по возрастанию и вычислить среднее значение элементов.
----------------------------------------------------------
В массиве Х(3,5; -4,4; -0,7; 2,9; -5,6; -2,3; -3,6; 4,5; -3,8; 1,5; -4,7; 1,8; -2,9) найти максимальный и минимальный элементы среди отрицательных элементов массива. Расположить элементы, стоящие между ними в порядке убывания и вычислите произведение этих элементов.
В целочисленном массиве Х(-5; 17; -14; 12; -9; 6; -3; 8; 1; 4; -12; -13; 2; 7) упорядочить элементы по убыванию. Среди первых семи элементов найти первое четное число, а среди последних семи элементов найдите последнее отрицательное число, кратное 3.
----------------------------------------------------------
В целочисленном массиве Х(11; 12; - 7; 14; 6; 3; -8; 16; 5; -2; -4; 14; -6; 8) найти первый максимальный элемент массива и поменять его местами с последним отрицательным элементом массива. Упорядочить элементы массива по убыванию.
----------------------------------------------------------
В массиве Х(4.6; 9.4; -3,5; 7,4; 1,7; 12,9; -5,6; 6,3 21,3; -8,6; 4,5; 2,5; -4,8; 9,7), найти максимальный элемент и его индекс среди положительных элементов, и количество отрицательных элементов, имеющих нечетные индексы. Отсортировать массив по возрастанию.
----------------------------------------------------------
В целочисленном массиве Х(15; 21; 17; 9; 16; 12; 19; 2; -8; 10; -1; -3; 5; 13) среди первых семи элементов найти сумму и количество элементов, которые при делении на 4 дают остаток равный 1, а затем среди последних семи элементов найти первое отрицательное число по модулю меньше 5. Переставить элементы массива в убывающем порядке.
----------------------------------------------------------
В целочисленном массиве Х(14; 11; 5; 17; 7; 9; -6; 3; -8; 4; 10; 2; -6; -3) найти максимальный элемент среди нечетных элементов, имеющих четные индексы. Затем расставить элементы, стоящие правее максимального в возрастающем порядке и найти в отсортированном массиве количество отрицательных элементов.
В массиве Х(1,8; -1,4; 1,7; 12,4; 5,6; 10,3; -1,6; 4,9; -3,6; 2,5; 13,7; 7,1; 6,4; -12,6) найти максимальный элемент среди положительных элементов массива, имеющих нечетные индексы. Затем расставить элементы, стоящие левее максимального в возрастающем порядке и найти их произведение.
----------------------------------------------------------
В целочисленном массиве Х(-8; -5; -11; 7; 9; 6; -4; 8; 1; -7; 2; 12; 5; -6) найти первый положительный элемент, затем расставить элементы, стоящие правее этого элемента в убывающем порядке. Найти в исходном массиве сумму и количество нечетных элементов, имеющих четные индексы.
----------------------------------------------------------
В массиве Х(-4,5; -7,4; -3,7; 12,9; -5,7; 21,3; 8,6; 1,5; 2,6; 2,1; -5,8; 5,4; -3,8) найти минимальный элемент массива среди положительных элементов, имеющих четные индексы. Затем расставить элементы, стоящие левее минимального в убывающем порядке и найти их сумму.
----------------------------------------------------------
В целочисленном массиве Х(5; -2; 7; 9; 6; 3; 8; 1; -4; -6; 10; -7; -2; 12; -5; -10; 20) найти последний отрицательный элемент по модулю меньший 3. Затем расставить элементы, стоящие левее найденного минимального в убывающем порядке. В исходном массиве найти среднее значение положительных элементов.
----------------------------------------------------------
В целочисленном массиве Х(-5; 11; 7; -19; 6;-13; -8; 1; 10; 2; 12; 3; -1; 14) найти сумму элементов, имеющих нечетные индексы и сумму элементов, имеющих четные индексы. Если первая сумма окажется больше второй, переставить элементы исходного массива в возрастающем порядке, в противном случае найти первый отрицательный элемент и его индекс.
В целочисленном массиве Х(-3; 10; -7; 8; 16; 13; -8; 4; 9; 2; -12; -8; 7; 11) Найти первый минимальный элемент массива и поменять его местами с последним положительным элементом массива. Упорядочить элементы исходного массива по возрастанию. Вычислить среднее значение элементов массива с индексами, кратными 3.
----------------------------------------------------------
В массиве Х(2,8; -6,9; 7,7; -12,8; -5,6; 10,2; -1,6; 4,9; -3,6; 2,5; 13,7; 7,1) среди элементов массива найти первый элемент, меньший по модулю 6, и имеющий четный индекс. Затем расставить элементы, стоящие левее найденного элемента в возрастающем порядке и найти для них среднегеометрическое значение.
----------------------------------------------------------
В целочисленном массиве Х(5; -8; 7; 9; 6; 3; 8; 4; 2; -3; -6; -10; -7;) найти минимальный элемент среди положительных элементов, имеющих нечетные индексы. Затем расставить элементы, стоящие левее минимального в убывающем порядке. Вычислить среднеарифметическое значение для отрицательных элементов.
----------------------------------------------------------
В массиве Х(1,5; -8,9; 1,7; 10,3; -7,6; 21,3; -8,9; 3,15; 2,6; 4,5) найти последний минимальный элемент массива. Расположить элементы, стоящие левее минимального в порядке возрастания. В исходном массиве найти произведение отрицательных элементов.
----------------------------------------------------------
В целочисленном массиве Х(4; 12; 7; 9; 6; 3; -9; 1; 10; 21; -6; 13) найти максимальный элемент среди нечетных элементов, имеющих четные индексы. Затем расставить элементы, стоящие левее максимального в убывающем порядке и найти их среднегеометрическое значение.
В массиве Х(3,5; -9,4; 1,7; 2,9; 5,6; -2,3; -3,6; 4,5; 9,6; -1,5; 10,7; 1,8; 4.8; 6.7) найти минимальный элемент и максимальный элемент среди положительных элементов массива, больших 3. Расположить элементы, стоящие между ними в порядке убывания.
Массив Х(3,5; -5,4; 1,7; -12,9; -5,6; 21,3; -8,6; -4,5; -0,6; 2,5; -7,8; -6,5) упорядочить по убыванию. Сформировать новый массив, состоящий из отрицательных элементов массива X, имеющих четные индексы и найти их среднее значение и максимальный элемент. Если таковых элементов не окажется, вывести фразу «Искомых элементов нет».
----------------------------------------------------------
----------------------------------------------------------
В массиве Х(-7,4; 1,7; -5,6; 13,5; 21,3; -8,6; 4,5; 0,6; 2,5; -6,3; 15,7; 12,9) расположить элементы в порядке возрастания. Найти среднее значение элементов массива, а также сумму и количество элементов, которые расположены левее первого элемента, оказавшегося больше найденного среднего.
******************************************************************************
Авдеева Л.В. Кафедра информатики