Дан двумерный массив х из вещественных элементов размерностью n 1. в одномерный массив переписать отрицательные элементы двумерного массива,расположенные ниже главной диагонали 2. перенести в начало одномерного массива первый элемент,значение которого больше разности максимального и минимального элементов. для отладки программы элементы массива сформировать с генератора случайных чисел

191

415

Посмотреть ответы 2

Ответы на вопрос:

slarina171

Информатика

4,6(19 оценок)

{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии в операторах uses, clrscr, readkey } const n = 9; var x: array[1..n, 1..n] of real; y: array[1..n*(n-1) div 2] of real; i, j, k: integer; max, min, d: real; begin randomize; {clrscr; } writeln('исходный массив'); for i : = 1 to n do begin for j : = 1 to n do begin x[i, j] : = 100*random - 50; write(x[i, j]: 4: 0) end; writeln end; { 1 } k: =0; for i: =2 to n do for j: =1 to i-1 do if x[i,j]< 0 then begin inc(k); y[k]: =x[i,j] end; writeln('сформированный одномерный массив'); for i: =1 to k do write(y[i]: 4: 0); writeln; { 2 } max: =y[1]; min: =max; for i: =2 to k do if y[i]> max then max: =y[i] else if y[i]< min then min: =y[i]; d: =max-min; i: =1; while (abs(y[i])< =d) and (i< =k) do inc(i); if i< =k then begin d: =y[1]; y[1]: =y[i]; y[i]: =d end; writeln('результирующий одномерный массив'); for i: =1 to k do write(y[i]: 4: 0); writeln; {readkey} end. тестовое решение: исходный массив 37 -45 -17 -26 -6 -22 -1 -33 -3 -27 33 -15 -14 33 37 28 -12 -36 1 14 48 -2 -43 -1 17 34 -7 -11 45 -5 -16 32 -8 32 -1 -40 18 43 -13 -28 30 45 44 -38 -28 38 0 10 48 28 -43 -12 -29 -44 2 -11 48 33 7 10 35 -40 -28 -48 39 -49 42 5 -16 26 -40 -5 27 -21 34 -46 4 45 -22 29 -16 сформированный одномерный массив -27 -11 -5 -13 -28 0 -11 -48 -49 -16 -21 -46 -22 результирующий одномерный массив -49 -11 -5 -13 -28 0 -11 -48 -27 -16 -21 -46 -22