Var I,j,k,max,buf,p: integer;
X:mas; f: text;
begin
assign(f,'mass.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;
//дозапись результатов в исходный файл mass.pas
append(f);
writeln(f);
writeln(f,'max=', max,' k=',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,'результаты обработки массива:');
writeln(f,'отсортированный массив:');
for i:=1 to n do
write(f,'x[':3,i,']=',x[i]:2); writeln(f);
close(f);
end.
Файл mass.pas:
massiv X
4 12 7 9 6 3 -9 1 10 21 -6 13
Ответ
massiv X
4 12 7 9 6 3 -9 1 10 21 -6 13
результаты обработки массива:
max=10 k=9
отсортированный массив:
x[1]=12 x[2]= 9 x[3]= 7 x[4]= 6 x[5]= 4 x[6]= 3 x[7]= 1 x[8]=-9 x[9]=10 x[10]=21 x[11]=-6 x[12]=13
Варианты заданий
Исходный массив считывать из файла,
результаты обработки массива вывести в файл с исходными данными и в произвольно заданный файл.
********************************************************************************
В массиве Х(3,5; 1,4; -1,7; 10,3; -7,6; -1,3; -8,7; 3,15; -2,6; 4,5) найти минимальный элемент среди отрицательных элементов массива, стоящих на нечетных местах. Расположить элементы, стоящие левее минимального в порядке возрастания. Найти в исходном массиве произведение отрицательных элементов, больших -3.
В массиве Х(1,4; 7,8; 1,7; 3,9; -5,6; 2,3; -8,4; 4,5; -9,8; 2,5; 1,4) найти минимальный и максимальный элементы, поменять их местами и расположить элементы, стоящие между ними, в порядке возрастания. Найти в исходном массиве среднее значение отрицательных элементов, стоящих на четных местах.
В массиве Х(-1,7; -1,5; 3,7; 2,9; -5,8; 2,3; -7,6; 3,5; 10,9; -2,5; 5,6; -2,8) найти последний положительный элемент, затем расставить элементы, стоящие левее этого элемента в убывающем порядке. Найти в исходном массиве среднее геометрическое значение положительных элементов, значения которых меньше 5.
В массиве Х(-1,7; -4,5; 3,1; 2,9; -1,6; 1,3; -6,6; -2,5; 2,9; -3,5; -7,6; 1,8) найти последний отрицательный элемент, затем расставить элементы, стоящие левее этого элемента в возрастающем порядке. Найти в исходном массиве среднее значение отрицательных элементов, имеющих нечетные индексы.
В массиве Х(1,7; 6,5; -4,7; 2,8; -2,6; 1,2; -6,6; -4,5; 3,9; 3,6; -8,4; -1,8) найти первый отрицательный элемент, затем расставить элементы, стоящие правее этого элемента в возрастающем порядке. Найти в исходном массиве среднегеометрическое значение для положительных элементов, имеющих четные индексы.
В массиве Х(1,9; 7,4; 1,7; 12,9; -0,8; 1,3; 3.7; 4,5; -0,6; -2,5; 4,6) расположить элементы в порядке убывания. Найти среднее значение положительных элементов массива, имеющие индексы, кратные трем, а также сумму элементов, которые расположены левее последнего элемента, оказавшегося меньше найденного среднего.
Из элементов массива Х(5; 10; 0; 12; 6; 10; -8; 3; -9; 11; -4; 15) сформировать одномерный массив, состоящий из ненулевых элементов массива X, имеющих индексы, кратные трем. Упорядочить полученный массив по убыванию. Если таковых не окажется, вывести фразу «Искомых элементов нет».
Из элементов массива Х(5; 7; 18; 14; 6; 9; -8; 4; -9; 12; -4; 16) сформировать одномерный массив, состоящий из элементов массива 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. Затем расставить элементы, стоящие правее этого элемента в возрастающем порядке и найти сумму модулей этих элементов.
В массиве Х(5; -16; 7; 9; 6; 3; -8; 4; 0; -12; 15; 2) найти минимальный и максимальный элементы. Расположить элементы, стоящие между ними, в порядке убывания и затем найти сумму элементов, имеющих четные индексы и делящиеся на три без остатка.
В целочисленном массиве Х(5; -11; 7; 19; -1; 3; -8; 4; 10; 12; -14; 7) найти минимальный элемент среди нечетных и максимальный элемент среди четных элементов массива, поменять их местами. расставить по возрастанию с 3-го по 9-й элементы массива.
В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 11,3; -8,6; 4,5; 0,6; 2,5; -7,3; 10,4) расположить первые пять элементов в порядке возрастания, а среди остальных элементов массива найти максимальный и минимальный элементы и поменять их местами.
Из элементов массива X(3.1; -4.2; 6.5; 13.1; -1.7; 3.8; -2.94; 3.; 1.1; 12) сформировать одномерный массив, состоящий из элементов, принадлежащих интервалу [-2;7] . Если таковых не окажется, вывести фразу «Целочисленных элементов нет». Полученный массив упорядочить по возрастанию и вычислить среднее значение элементов.
В массиве Х(3,5; -4,4; -1,7; 2,9; -5,6; -2,3; -3,6; 4,5; 9,6; -1,5; 10,7; 1,8) найти максимальный элемент массива и минимальный элемент среди отрицательных элементов массива, больших (-5). Расположить элементы, стоящие между ними в порядке убывания.
В целочисленном массиве Х(14; 12; -7; 9; 6; 3; -8; 1; 5; -2; -4; 10) упорядочить элементы, имеющие четные индексы, по убыванию. Найти максимальный элемент среди элементов с нечетными индексами, значение которых <10 и поменять его местами с последним элементом отсортированного массива.
В целочисленном массиве Х(17; 14; 12; 9; 6; 3; 8; 1; 4; 12; 11; 2) упорядочить элементы по возрастанию. Среди первых шести элементов найти первое четное число, а среди последних шести элементов найдите сумму и количество элементов, которые при делении на 3 дают остаток равный 2.
В массиве Х(3,5; -9,4; -1,7; 2,9; -5,6; -2,3; -3,6; 4,5; 9,6; -1,5; 10,7; 1,8) найти минимальный элемент и максимальный элемент среди положительных элементов массива, больших 3. Расположить элементы, стоящие между ними в порядке убывания.
В массиве Х(-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; 7; 8; 13; 10; 25; 5) переставить элементы в убывающем порядке. Среди первых шести элементов найти сумму и количество элементов, которые при делении на 4 дают остаток равный 1, а затем среди последних шести элементов найти первое нечетное число.
В целочисленном массиве Х(5; 11; 7; 9; 6; 3; -8; 1; 10; 2; -6; 3) найти максимальный элемент среди нечетных элементов, имеющих четные индексы. Затем расставить элементы, стоящие правее максимального в возрастающем порядке и найти сумму и количество отрицательных элементов.
В массиве Х(1,8; -1,4; 16,7; 12,4; 5,6; 10,3; -1,6; 4,9; -3,6; 2,5; 13,7; 7,1) найти максимальный элемент среди элементов массива больших 3 и имеющих нечетные индексы. Затем расставить элементы, стоящие правее максимального в возрастающем порядке.
В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) расположить элементы в порядке возрастания. Найти среднее значение элементов массива, а также сумму и количество элементов, которые расположены правее первого элемента, оказавшегося больше найденного среднего.
В целочисленном массиве Х(-5; -11; 7; 9; 6; -4; 8; 1; -7; 2; 12; 5) найти первый положительный элемент, затем расставить элементы, стоящие правее этого элемента в возрастающем порядке и найти сумму и количество четных элементов, имеющих нечетные индексы.
В массиве Х(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,5; -5,4; 1,7; -12,9; -5,6; 21,3; -8,6; -4,5; -0,6; 2,5; -7,8; -6,5) упорядочить по убыванию. Сформировать новый массив, состоящий из отрицательных элементов массива X, имеющих четные индексы и найти их среднее значение и максимальный элемент. Если таковых элементов не окажется, вывести фразу «Искомых элементов нет».
В целочисленном массиве Х(5; -8; 7; 9; 6; 3; 8; 1; 2; -2; 10; -7) найти минимальный элемент среди четных элементов, имеющих нечетные индексы. Затем расставить элементы, стоящие правее минимального в убывающем порядке. В исходном массиве найти среднее значение положительных элементов.
В целочисленном массиве Х(-5; 11; 7; -19; 6;-13; -8; 1; 10; 2; 12; 3) найти сумму элементов, имеющих нечетные индексы и сумму элементов, имеющих четные индексы. Если первая сумма окажется больше второй, переставить элементы исходного массива в возрастающем порядке, в противном случае – в убывающем порядке.
В целочисленном массиве Х(-3; 10; -7; 8; 16; 13; -8; 4; 9; 2; -12; -5) Найти минимальный элемент массива и поменять его местами с первым положительным элементом массива. Упорядочить элементы с четными индексами по возрастанию.
В массиве Х(2,8; -6,9; 7,7; -12,8; -5,6; 10,2; -1,6; 4,9; -3,6; 2,5; 13,7; 7,1) найти минимальный элемент среди элементов массива меньших 4 и имеющих четные индексы. Затем расставить элементы, стоящие правее минимального в возрастающем порядке и найти сумму их модулей.
В целочисленном массиве Х(5; -8; 7; 9; 6; 3; 8; 1; 2; -2; 10; -7) найти минимальный элемент среди положительных элементов, имеющих нечетные индексы. Затем расставить элементы, стоящие левее минимального в убывающем порядке.
В массиве Х(1,5; -6,4; 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) найти максимальный элемент среди нечетных элементов, имеющих четные индексы. Затем расставить элементы, стоящие левее максимального в убывающем порядке и найти их среднее значение.
******************************************************************************