Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Sethliwe
0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 6
1

Изменение знака на противоположный, в матрице

22.12.2013, 16:00. Просмотров 1095. Ответов 1
Метки нет (Все метки)

Нужно в каждом столбце заменить максимальный элемент на противоположный (если -1 максимальный, то должно стать просто 1, если 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
program p3;
uses crt;
const n=4; m=5;
var a:array[1..n,1..m] of integer;
    i,j,max:integer;
begin
clrscr;
randomize;
writeln('Danniy massiv');
for i:=1 to n do begin
for j:=1 to m do begin
                 a[i,j]:=random(11)-5;
                 write(a[i,j]:4);
                 end;
                 writeln;
                 end;
for j:=1 to m do begin
max:=-6;
for i:=1 to n do
if a[i,j]>max then a[i,j]:=-a[i,j];
end;
writeln('V stolbcah znaki maksimalnih protivopolozhnnie');
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2013, 16:00
Ответы с готовыми решениями:

Смена знака минимального элемента каждого столбца матрицы на противоположный
Необходима помощь в решении задачи, никак не могу понять как доделать. В массиве С(4*4) из...

В матрице заменить максимальный элемент каждого столбца на противоположный
Матрица 6*7 заполняется случайным образом. 1.В матрице заменить максимальный элемент каждого...

Выполнить сложение в матрице, состоящей из чисел и знака +
Дана строковая матрица. Она рандомно заполнена целыми числами, а также в ее середину рандомно...

Замена знака каждого пятого элемента массива B(100) на противоположный.
2. . Составить блок-схему и программу для замены знака каждого пятого элемента массива B(100) на...

Написать подпрограмму для замены знака на противоположный у всех элементов 5-го столбца матрицы
Написать подпрограмму для замены знака на противоположный у всех элементов 5-го столбца матрицы...

1
vr3dina
2 / 2 / 1
Регистрация: 29.11.2013
Сообщений: 8
22.12.2013, 17:21 2
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
program p3;
uses crt;
const n=4; m=5;
var a:array[1..n,1..m] of integer;
    i,j,max,b,c:integer;
begin
clrscr;
randomize;
writeln('Danniy massiv');
for i:=1 to n do begin
for j:=1 to m do begin
                 a[i,j]:=random(11)-5;
                 write(a[i,j]:4);
                 end;
                 writeln;
                 end;
for j:=1 to m do begin
max:=a[1,j]; c:=1; b:=j;
for i:=1 to n do
if a[i,j]>max then begin max:=a[i,j]; c:=i; b:=j; end;
a[c,b]:=-a[c,b];
end;
writeln('V stolbcah znaki maksimalnih protivopolozhnnie');
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2013, 17:21

Изменение знака элементов матрицы на противоположный
Доброго дня! По условию задачи необходимо в каждом столбце двумерного массива целых чисел сменить...

Одномерный массив, сортировка выбором, изменения знака на противоположный
Дан массив С(n). Поменять знаки на противоположные у всех отрицательных элементов массива и...

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru