0 / 0 / 0
Регистрация: 22.12.2014
Сообщений: 9
1

Все отрицательные элементы в строке матрицы, заменить их квадратами

22.12.2014, 08:27. Показов 1439. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны три целые матрицы размером n×n. Преобразовать каждую из них по
следующему правилу: все отрицательные элементы в строке, следующей за строкой,
содержащей наибольший элемент, заменить их квадратами.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2014, 08:27
Ответы с готовыми решениями:

В матрицы заменить все отрицательные элементы их квадратами
Данная целочисленная матрица размером n × m . В матрицы заменить все отрицательные элементы их...

В строке матрицы заменить все отрицательные элементы на их квадрат
Дан двумерный массив, в введённый пользователем номер строки заменить все отрицательные элементы на...

Задан одномерный массив целых чисел. Заменить все отрицательные элементы массива их квадратами и упорядочить элементы
Задан одномерный массив целых чисел. Заменить все отрицательные элементы массива их квадратами и...

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все...

2
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
22.12.2014, 10:00 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
var n:integer;
procedure matrix(var a:mtr;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
procedure zamena(var a:mtr;s:string);
var i,j,imx:byte;
    mx:integer;
begin
mx:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>mx then
 begin
  mx:=a[i,j];
  imx:=i
 end;
writeln('Максимальный элемент=',mx,' в строке ',imx);
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (i>imx)and(a[i,j]<0)then a[i,j]:=sqr(a[i,j]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
var a,b,c:mtr;
begin
randomize;
repeat
write('Размер матриц от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
matrix(a,'Исходная матрица А');
zamena(a,'Измененная матрица А');
matrix(b,'Исходная матрица B');
zamena(b,'Измененная матрица B');
matrix(c,'Исходная матрица C');
zamena(c,'Измененная матрица C');
end.
0
0 / 0 / 0
Регистрация: 22.12.2014
Сообщений: 9
22.12.2014, 10:11  [ТС] 3
спасиибо )
0
22.12.2014, 10:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2014, 10:11
Помогаю со студенческими работами здесь

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
переведите на паскаль Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы...

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

Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами
Не могу решить. 1.Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы...

Заменить все отрицательные элементы массива их квадратами и отсортировать все элементы по возрастанию
Помогите пожалуйста заменить все отрицательные элементы массива их квадратами и отсортировать все...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru