Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
789456123321
0 / 0 / 0
Регистрация: 15.12.2013
Сообщений: 6
1

Заменить произведением отрицательных элементов этого же столбца

26.12.2013, 20:47. Просмотров 956. Ответов 1
Метки нет (Все метки)

задана матрица A(n,m), в каждом столбце которой максимальный элемент необходимо заменить произведением отрицательных элементов этого же столбца
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 20:47
Ответы с готовыми решениями:

Максимальный элемент, заменить произведением отрицательных элементов
Задана матрица A(n,m), в каждом столбце которой, максимальный элемент...

Из элементов столбца с номером k массива A[20,25] вычесть минимальный элемент этого столбца.
Из элементов столбца с номером k массива A вычесть минимальный элемент этого...

Для каждого столбца матрицы с чётным номером вычислить сумму квадратов элементов этого столбца
. Создать матрицу 4х4. Для каждого столбца с четным номером вычислить сумму...

Двумерный массив. Найти номер столбца с наименьшим произведением элементов
Среди столбцов целочисленной матрицы А(n,m) найти номер столбца с наименьшим...

Удалить из матрицы A(n,m) столбец с максимальным произведением его отрицательных элементов
Удалить из матрицы A(n,m) столбец с максимальным произведением его...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26101 / 17501 / 6943
Регистрация: 22.10.2011
Сообщений: 30,827
Записей в блоге: 6
27.12.2013, 18:30 2
Лучший ответ Сообщение было отмечено 789456123321 как решение

Решение

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
const
  n = 5;
  m = 10;
 
var
  a : array[1 .. n, 1 .. m] of integer;
  i, j, ix : integer;
  p : integer;
 
begin
  randomize;
  writeln('До:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j]:7);
    end;
    writeln;
  end;
 
  for j := 1 to m do
  begin
    p := 1;
    ix := 1;
    for i := 1 to n do
    begin
      if a[i, j] < 0 then
        p := p * a[i, j];
      if a[i, j] > a[ix, j] then
        ix := i;
    end;
    a[ix, j] := p;
  end;
 
  writeln('После:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:7);
    writeln;
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2013, 18:30

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

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

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


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

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

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