Из матрицы размером N×M получить вектор B, присвоив его k-му элементу значение 1, если элементы k-й строки матрицы упорядочены по убыванию, иначе 0. На .

120

173

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

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

ник230903

Информатика

4,4(65 оценок)

//pascal abc.net 3.1 сборка 1219 const n=10; var ar: array[1..n] of integer; i,j,c: integer; begin randomize; readln(c); writeln('array: '); for i: =1 to n do begin ar[i]: =random(-10,10); write(ar[i]: 4); end; for i: =1 to n-1 do for j: =i+1 to n do if (ar[i]> ar[j]) and (ar[i]< 0) and (ar[j]< 0) and (ar[i] mod c=0) and (ar[j] mod c=0) then swap(ar[i],ar[j]); writeln; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. пример ввода: 2 пример вывода: array: -7 3 9 -2 7 -7 3 -6 -6 -3 final array: -7 3 9 -6 7 -7 3 -6 -2 -3