Var I,j,k,l:integer; p,buf:real;f:text;

const x:array[1..n] of real=(3.5,-7.4,1.7,12.9,-5.6,21.3,-8.6,4.5,0.6,2.5);

begin

assign(f,'array2_1.pas');

rewrite(f);

writeln(f);

k:=1; l:=2; p:=x[k]*x[l];

for i:=1 to n-1 do

for j:=i+1 to n do if x[i]*x[j]>p then

begin k:=i; l:=j;

p:=x[i]*x[j]

end;

writeln(f,' p=',p:5:2,' k=',k,' l=',l);

for j:=1 to k-1 do

for i:=1 to k-1 do

if x[i]>x[i+1] then begin buf:=x[i];

x[i]:=x[i+1];

x[i+1]:=buf

end;

writeln(f);

for i:=1 to n do begin write(f,' x[',i,']=',x[i]:5:1);

if i=5 then writeln(f)

end;

writeln(f);

close(f)

end.

ответ

p=274.77 k=4 l=6

x[1]= -7.4 x[2]= 1.7 x[3]= 3.5 x[4]= 12.9 x[5]= -5.6

x[6]= 21.3 x[7]= -8.6 x[8]= 4.5 x[9]= 0.6 x[10]= 2.5

************************************************************

Пример 4

В целочисленном массиве Х(5; -7; 7; 12; 6; 21; -8; 4; 0; 2) расположить вначале четные элементы массива, а затем нечетные. Напечатать исходный и измененный массивы.

const n=10;

Var I,j:integer; buf:integer;f:text;

const x:array[1..n] of integer=(5,-7,16,12,-5,22,-8,15,6,2);

begin

assign(f,'array3_1.pas');

rewrite(f);

writeln(f);

for j:=1 to n-1 do

for i:=1 to n-j do

if odd(x[i]) and not odd(x[i+1]) then

begin buf:=x[i];

x[i]:=x[i+1];

x[i+1]:=buf

end;

writeln(f);

for i:=1 to n do begin write(f,' x[',i,']=',x[i]);

if i=5 then writeln(f)

end;

writeln(f);

close(f)

end.

x[1]=16 x[2]=12 x[3]=22 x[4]=-8 x[5]=6

x[6]=2 x[7]=5 x[8]=-7 x[9]=-5 x[10]=15

********************************************************************************

Варианты заданий

1. В массиве Х(3,5; -7,4; 23,7; 12,9; -5,6; 11,3; -8,6; 4,5; 0,6; 2,5) найти максимальный элемент среди положительных чисел, расположить элементы, стоящие правее максимального в порядке возрастания и найти их сумму. Напечатать исходный массив и результаты обработки массива.

2. В массиве Х(1,5; -6,4; 1,7; 10,3; -7,6; 21,3; -8,9; 3,15; 2,6; 4,5) найти минимальный элемент, расположить элементы, стоящие левее минимального в порядке возрастания и найти их произведение. Напечатать исходный массив и результаты обработки массива.

3. В массиве Х(1,4; 7,8; 1,7; 2,9; -5,6; 2,3; -8,4; 4,5; -9,6; 2,5) найти минимальный и максимальный элементы и расположить элементы, стоящие между ними в порядке возрастания. Напечатать исходный массив и результаты обработки массива.

4. В массиве Х(3,5; -7,4; 1,7; 2,9; -5,6; 2,3; -4,6; 4,5; 9,6; 2,5) найти минимальный и максимальный элементы и расположить элементы, стоящие между ними в порядке убывания. Напечатать исходный массив и результаты обработки массива.

5. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) найти максимальное значение выражения x_i-x_j, где ij. Напечатать значения i и j, при которых это выражение будет максимальным. Переставить элементы массива, стоящие правее j-го в порядке возрастания. Напечатать исходный массив и результаты обработки массива.

6. В целочисленном массиве Х(5; -7; 7; 12; 6; 21; -8; 4; 0; 2) расположить вначале четные элементы массива, а затем нечетные. Упорядочить массив по убыванию, найти среднее арифметическое значение элементов массива. Напечатать исходный массив и результаты обработки массива.

7. В целочисленном массиве Х(5; 11; 7; 9; 6; 3; -8; 4; 0; -12) расположить элементы в порядке возрастания. Найти минимальный и максимальный элементы, найти среднее значение элементов, расположенных между ними и имеющих нечетные индексы. Напечатать исходный массив и результаты обработки массива.

8. В массиве Х(-3,7; -6,5; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,9; -2,5) найти

последний положительный элемент, затем расставить элементы, стоящие левее этого элемента в убывающем порядке и найти среднее геометрическое значение этих элементов. Напечатать исходный массив и результаты обработки массива.

9. В массиве Х(1,9; 7,4; 1,7; 12,9; -0,8; 21,3; 3.7; 4,5; -0,6; 2,5) расположить элементы в порядке убывания. Найти среднее значение элементов массива, а также сумму элементов, которые расположены левее последнего элемента, оказавшегося меньше найденного среднего. Напечатать исходный массив и результаты обработки массива.

10. Из элементов массива Х(5; 10; 0; 12; 6; 0; -8; 3; -9; 11) сформировать одномерный массив, состоящий из ненулевых элементов массива X, имеющих чётные индексы. Упорядочить полученный массив по убыванию. Если таковых не окажется, вывести фразу «Искомых элементов нет». Напечатать исходный массив и результаты обработки массива.

11. В целочисленном массиве Х(5; -11; 7; 19; -16; 3; -8; 4; 10; 2) найти минимальный элемент среди нечетных и максимальный элемент среди четных элементов массива X , найти сумму элементов, расположенных между ними, а также поменять их местами. Напечатать исходный массив и результаты обработки массива.

12. Из элементов массива X(0.1,-4., 72, 23.1, 5., 3.8, -2.94, 3., 1.1, 12) сформировать одномерный массив, состоящий только из целочисленных элементов, т.е. дробная часть которых равна нулю. Если таковых не окажется, вывести фразу «Целочисленных элементов нет». Полученный массив упорядочить по возрастанию. Напечатать исходный массив и результаты обработки массива.

13. В массиве Х(3,5; 17,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) найти максимальное значение суммы x_i+x_j, где ij. Напечатать значения i и j. Упорядочить элементы массива, стоящие правее j-го в порядке убывания. Напечатать исходный массив и результаты обработки массива.

14. В целочисленном массиве Х(5; 11; 7; 9; 6; 3; -8; 1; 0; 2) упорядочить элементы, имеющие четные индексы по убыванию. Найти максимальный элемент среди элементов с нечетными индексами. Напечатать исходный массив и результаты обработки массива.

15. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) расположить первые пять элементов в порядке возрастания, а среди следующих пяти элементов найти максимальный и минимальный элементы. Напечатать исходный массив и результаты обработки массива.

16. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) найти минимальное значение суммы x_i+x_j, где ij. Напечатать значения i и j. Упорядочить элементы массива, стоящие правее j-го в порядке возрастания. Напечатать исходный массив и результаты обработки массива.

17. В целочисленном массиве Х(5; 11; 7; 9; 6; 3; 8; 1; 0; 2) упорядочить элементы по убыванию. Среди последних пяти элементов найти сумму элементов, которые при делении на 3 дают остаток равный 2. Напечатать исходный массив и результаты обработки массива.

18. В целочисленном массиве Х(5; 11; 7; 9; 6; 3; 8; 1; 0; 2) переставить элементы в возрастающем порядке. Затем среди последних пяти элементов найти сумму элементов, которые при делении на 3 дают остаток равный 2. Напечатать исходный массив и результаты обработки массива.

19. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) расположить первые пять элементов в порядке убывания, а среди следующих пяти элементов найти сумму элементов, имеющих нечетные индексы. Напечатать исходный массив и результаты обработки массива.

20. В массиве Х(3,5; -7,4; -1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) найти максимальный элемент массива среди отрицательных элементов. Затем расставить элементы, стоящие правее максимального в возрастающем порядке. Напечатать исходный массив и результаты обработки массива.

21. В целочисленном массиве Х(-5; -11; 7; 9; 6; 3; -8; 1; -4; 2) найти первый положительный элемент, затем расставить элементы, стоящие правее этого элемента в возрастающем порядке и найти их среднее арифметическое значение. Напечатать исходный массив и результаты обработки массива.

22. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) расположить элементы в порядке возрастания. Найти среднее значение элементов массива, а также сумму элементов, которые расположены правее первого элемента, оказавшегося больше найденного среднего. Напечатать исходный массив и результаты обработки массива.

23. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) найти минимальное значение выражения x_i-x_j, где ij. Напечатать значения i и j, при которых это выражение будет минимальным. Переставить элементы массива, стоящие правее j-го в порядке возрастания. Напечатать исходный массив и результаты обработки массива.

24. В целочисленном массиве Х(5; 11; 7; 9; 6; 3; -8; 1; 0; 2) найти максимальный элемент среди нечетных элементов, имеющих четные индексы. Затем расставить элементы, стоящие правее максимального в возрастающем порядке. Напечатать исходный массив и результаты обработки массива.

25. В массиве Х(4,5; -7,4; -3,7; 12,9; -5,7; 21,3; 8,6; 4,5; 2,6; 2,5) найти минимальный элемент массива среди положительных элементов, имеющих нечетные индексы. Затем расставить элементы, стоящие левее минимального в убывающем порядке. Напечатать исходный массив и результаты обработки массива.

26. В целочисленном массиве Х(5; -8; 7; 9; 6; 3; 8; 1; 2; -2) найти минимальный элемент среди четных элементов, имеющих нечетные индексы. Затем расставить элементы, стоящие левее минимального в убывающем порядке. Напечатать исходный массив и результаты обработки массива.

27. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; -0,6; 2,5) переставить элементы так, чтобы сначала стояли положительные элементы, а затем – отрицательные. Группу отрицательных элементов расставьте в возрастающем порядке. Напечатать исходный массив и результаты обработки массива.

28. В целочисленном массиве Х(-5; 11; 7; 19; 6;-13; -8; 1; 0; 2) найти сумму элементов, имеющих нечетные индексы и сумму элементов, имеющих четные индексы. Если первая сумма окажется больше второй, переставить элементы исходного массива в возрастающем порядке, в противном случае – в убывающем порядке. Напечатать исходный массив и результаты обработки массива.

29. В целочисленном массиве Х(5; 11; 7; 9; 6; 3; -8; 1; 0; 2) упорядочить элементы с нечетными индексами по возрастанию. Найти сумму элементов с четными индексами. Напечатать исходный массив и результаты обработки массива.

30. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) переставить элементы так, чтобы сначала стояли положительные элементы, а затем – отрицательные. Группу положительных элементов расставьте в возрастающем порядке. Напечатать исходный массив и результаты обработки массива.

31. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) переставить элементы так, чтобы сначала стояли отрицательные элементы, а затем – положительные. Группу положительных элементов расставьте в убывающем порядке. Напечатать исходный измененный массивы.

32. В массиве Х(3,5; -7,4; 1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) найти максимальное значение выражения x_i-x_j, где ij. Напечатать значения i и j, при которых это выражение будет максимальным. Переставить элементы массива, стоящие правее j-го в порядке возрастания. Напечатать исходный и измененный массивы.

******************************************************************************