Заменить элементы матрицы

23.12.2009, 19:23. Показов 647. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Даны натуральное число m, целые числа a1,...am и целочисленная квадратная матрица порядка m.
Строку с номером i матрицы назовем отмеченной, если ai>0, и не отмеченной в противном случае.
Нужно все элементы, расположенные в отмеченных строках матрицы, преобразовать по правилу:
отрицательные элементы заменить на -1, положительные на 1, нулевые оставить без изменения.

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

Вот мой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses Crt;
cоnst m=10;
type mas=array[1..m] of integer;
type mas2=array[1..m,1..m] of integer;
var
massiv:mas; massiv2:mas2; 
i,j,n:integer;
 
procedure PrintMas(mass: mas; n:integer); {Процедура вывода одномерного массива}
var i:integer;
begin
For i:=1 to m do
Write(mass:5);
end;
 
procedure PrintMas2(mass:mas2; n:integer); {Процедура вывода двумерного массива}
var i,j:integer;
begin
For i:=1 to m do
For j:=1 to m do
begin
gotoxy(j*5+10,i);
Writeln(mass[i,j]);
end;
end;
 
begin
Writeln(#13,#13,#13,#13,#13,#13,#13,#13,#13,#13,#13);
Randomize;
For i:=1 to m do
For j:=1 to m do
massiv2[i,j]:=random(10)-5; {Генерация элементов двумерого массива}
For i:=1 to m do
massiv:=random(10)-5; {Генерация элементов одномерного массива}
if massiv>0 then {Условный оператор меняющий элементы массива}
begin
for j:=1 to m do
for i:=1 to m do
begin
if massiv2[i,j]>0 then massiv2[i,j]:=1;
 
if massiv2[i,j]<0 then massiv2[i,j]:=-1
 
else massiv2[i,j]:=0;
end;
end;
PrintMas(massiv,m);
PrintMas2(massiv2,m);
 
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

23.12.2009, 19:23

Ответы с готовыми решениями:

Заменить отрицательные элементы матрицы выше главной диагонали их модулями, и найти след матрицы
Дана матрица, состоящая из n строк и n столбцов или одномерные массивы из n элементов каждый Задание: Изменить матрицу , заменив...

Найти наибольший из положительных элементов матрицы и заменить этим числом все элементы матрицы на обратной диагонали.
Найти наибольший из положительных элементов матрицы и заменить этим числом все элементы матрицы на обратной диагонали. помогите...

Заменить элементы матрицы
Дана квадратная матрица A(n x n). Если в ее треугольной части, расположенной ниже побочной диагонали, имеются нулевые элементы, то заменить...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

23.12.2009, 19:23

Помогаю со студенческими работами здесь

Заменить элементы матрицы по условию
кроме матрицы А дана матрица В такого же размера. если для всех i,j выполняеться неравенство a(i,j)+b(i,j)>0, заменить значение каждого...

Заменить нулём отрицательные элементы матрицы
В матрице размера MxN отрицательные элементы заменить нулем. создание и вывод матриц оформить в виде процедур.

Заменить все элементы матрицы на нулевые
Вечер добрый! Помогите с задачкой: дана квадратная матрица порядка n(n=5). Если в матрице a элемент, расположенный на главной диагонали...

Заменить положительные элементы матрицы нулями
Составить программу обработки матрицы размерности NxN. В программе предусмотреть ввод, вывод матрицы и результата . Ввод, вывод матрицы и...

Заменить элементы на главной диагонали матрицы нулями
Даны матрица А размером 5x4 и вектор - столбец, состоящий из пяти элементов. Объединить их по столбцу в матрицу размером 5x5 и заменить...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Наверх