перетворити стовпц матриц А(nxn) так: якщо кльксть елементв у стовпц ,
Перетворити стовпц матриц А(nxn) так: якщо кльксть елементв у стовпц , як перевищують мнмальне додатне значення цього стовця ,бльша за 3 , то вс додатн елементи вдповдного стовця роздлити на 2
1 ответ
Валя Манахова
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программка не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Начальная матрица [',n,',',n,'] ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var j:=0;
var nr:=ArrFill(n,False);
foreach var c in a.Cols do begin
var s:=c.Where(x-gt;xgt;0);
if s.Countgt;0 then begin
var min:=s.Min;
var k:=c.Where(x-gt;xgt;min).Count;
nr[j]:=kgt;3; j+=1
end
end;
Writeln('*** Результирующая матрица ***');
for var i:=0 to n-1 do
if nr[i] then a.SetCol(i,a.Col(i).Select(x-gt;(xgt;0?x div 2:x)).ToArray);
a.Println(4)
end.
Пример
Количество строк/столбцов в матрице: 10
*** Начальная матрица [10,10] ***
-12 16 82 17 61 -19 -54 30 -27 77
72 -88 64 -50 85 16 3 -90 72 69
-26 22 27 -72 -83 23 -39 -56 -6 87
2 -56 -4 -43 -15 -31 75 85 -96 -7
42 -17 67 55 32 74 28 -92 -81 -97
-44 80 -50 81 -8 66 89 55 0 -61
-79 -97 -64 -15 -25 28 15 7 64 17
41 17 -93 -20 -72 91 54 71 -5 -57
95 -47 -74 -8 32 22 94 15 64 19
-20 -79 -15 65 -28 39 -52 -18 -20 -96
----------------------------------------
*** Результирующая матрица ***
-12 16 82 17 61 -19 -54 15 -27 38
36 -88 64 -50 85 8 1 -90 72 34
-26 22 27 -72 -83 11 -39 -56 -6 43
1 -56 -4 -43 -15 -31 37 42 -96 -7
21 -17 67 55 32 37 14 -92 -81 -97
-44 80 -50 81 -8 33 44 27 0 -61
-79 -97 -64 -15 -25 14 7 3 64 8
20 17 -93 -20 -72 45 27 35 -5 -57
47 -47 -74 -8 32 11 47 7 64 9
-20 -79 -15 65 -28 19 -52 -18 -20 -96
// Внимание! Если программка не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Начальная матрица [',n,',',n,'] ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var j:=0;
var nr:=ArrFill(n,False);
foreach var c in a.Cols do begin
var s:=c.Where(x-gt;xgt;0);
if s.Countgt;0 then begin
var min:=s.Min;
var k:=c.Where(x-gt;xgt;min).Count;
nr[j]:=kgt;3; j+=1
end
end;
Writeln('*** Результирующая матрица ***');
for var i:=0 to n-1 do
if nr[i] then a.SetCol(i,a.Col(i).Select(x-gt;(xgt;0?x div 2:x)).ToArray);
a.Println(4)
end.
Пример
Количество строк/столбцов в матрице: 10
*** Начальная матрица [10,10] ***
-12 16 82 17 61 -19 -54 30 -27 77
72 -88 64 -50 85 16 3 -90 72 69
-26 22 27 -72 -83 23 -39 -56 -6 87
2 -56 -4 -43 -15 -31 75 85 -96 -7
42 -17 67 55 32 74 28 -92 -81 -97
-44 80 -50 81 -8 66 89 55 0 -61
-79 -97 -64 -15 -25 28 15 7 64 17
41 17 -93 -20 -72 91 54 71 -5 -57
95 -47 -74 -8 32 22 94 15 64 19
-20 -79 -15 65 -28 39 -52 -18 -20 -96
----------------------------------------
*** Результирующая матрица ***
-12 16 82 17 61 -19 -54 15 -27 38
36 -88 64 -50 85 8 1 -90 72 34
-26 22 27 -72 -83 11 -39 -56 -6 43
1 -56 -4 -43 -15 -31 37 42 -96 -7
21 -17 67 55 32 37 14 -92 -81 -97
-44 80 -50 81 -8 33 44 27 0 -61
-79 -97 -64 -15 -25 14 7 3 64 8
20 17 -93 -20 -72 45 27 35 -5 -57
47 -47 -74 -8 32 11 47 7 64 9
-20 -79 -15 65 -28 19 -52 -18 -20 -96
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов