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

Найти столбец матрицы, содержащий минимальное произведение своих элементов

02.02.2010, 02:29. Просмотров 1036. Ответов 1
Метки нет (Все метки)

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

В матрице поменять местами первый столбец и столбец, содержащий минимальное количество нечетных элементов
1) дана матрица размера m*n поменять местами столбцы 1 и столбец, содержащий...

Вычеркнуть строку и столбец матрицы, содержащие минимальное значение этой матрицы.
Добрый день. Необходимо вычеркнуть x строку и k столбец из матрицы,...

Найти произведение элементов матрицы расположенных на главной диагонали матрицы А
Матрица А (4,4) Помогите пожалуйста!

Найти минимальное значение среди сумм элементов всех строк матрицы
Дана целочисленная матрица размера 5 x 10. Найти минимальное значение среди...

Найти произведение элементов в тех строках матрицы, которые не содержат отрицательных элементов
Дана целочисленная квадратная матрица. Определить: 1. Произведение элементов в...

1
Puporev
Модератор
54586 / 42092 / 29061
Регистрация: 18.05.2008
Сообщений: 99,290
02.02.2010, 09:41 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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    b:array[1..nmax] of real;
    n,i,j,k,jmn:byte;
    mn,p:real;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   write(' ':2);
   for j:=1 to n do
    begin
     a[i,j]:=10*random-3;
     write(a[i,j]:8:2);
    end;
   writeln;
 end;
writeln;
write('P=');//в эту строку будем выводить произведения в столбцах
mn:=1;jmn:=1;
for i:=1 to n do
mn:=mn*a[i,1];//найдем произведение в первом столбце, оно пока мин.
for j:=1 to n do
 begin
  p:=1;
  for i:=1 to n do
  p:=p*a[i,j];//в других
  write(p:8:2);//выведем
  if p<mn then//если меньше
   begin
    mn:=p;//это мин
    jmn:=j;//номер столбца
   end;
 end;
writeln;
writeln('Минимальное произведение=',mn:0:2,' в столбце ',jmn);
for i:=1 to n do
b[i]:=a[i,jmn];
writeln('Вектор:');
for i:=1 to n do
write(b[i]:6:2);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.02.2010, 09:41

Удалить столбец, содержащий наименьший четный элемент матрицы
Ребят, помогите пожалуйста с написанием программы. Дана матрица А. Удалить...

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

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


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

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

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