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

Дана квадратная матрица порядка Т. Для каждого столбца найти наименьший элемент. Вывести произведение найденных элементов

22.01.2013, 23:08. Просмотров 871. Ответов 1
Метки нет (Все метки)

Пожалуйста.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2013, 23:08
Ответы с готовыми решениями:

Дана квадратная матрица порядка Т. Для каждого столбца найти наименьший элемент. Вывести произведение найденных элементов
Дана квадратная матрица порядка Т. Для каждого столбца найти наименьший элемент. Вывести...

Дана действительная квадратная матрица порядка n, найти наименьший и наибольший элементы матрицы, и поменять их местами друг с другом.
1.Дана действительная квадратная матрица порядка n, найти наименьший и наибольший элементы матрицы,...

Дана действительная квадратная матрица порядка n. Найти сумму элементов
Дана действительная квадратная матрица порядка n. Найдите сумму элементов, расположенных в...

Вещественная Матрица. Найти сумму элементов каждого столбца матрицы. Сформировать одномерный массив из найденных сумм
Здравствуйте! Помогите с решением и блок схемой.Пожалуйста! Ввести вещественную матрицу...

Дана квадратная матрица A порядка M. Найти среднее арифметическое элементов ее побочной диагонали.
Как необходимо прописать 25 строку? подмогите плиз... Program maxim; Uses crt; var b:array of...

1
GggDrej
72 / 72 / 64
Регистрация: 21.01.2013
Сообщений: 147
22.01.2013, 23:48 2
Лучший ответ Сообщение было отмечено S_Wave как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n = 10;
var arr:array[1..n,1..n] of integer;
    min,i,j,res,T:integer;
begin
 writeln ('Vvedte T = '); read(T);
 writeln ('Vvedite matricu: ');
 for i:=1 to T do
  for j:=1 to T do read(arr[i,j]);
 res:=1;
 for i:=1 to T do
 begin
 min:=arr[1,i];
  for j:=2 to T do
   if arr[j,i]<min then min:=arr[j,i];
 res:=res*min;
 end;
 write('Proizvedenie:',res);
 end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2013, 23:48

Дана квадратная матрица порядка M. Найти сумму элементов ее главной и побочной диагоналей
Помогите решить с помощью процедур или функций

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

Дана квадратная матрица порядка M. Найти сумму элементов ее диагоналей. При написании программу использовать подпрограмму
Дана квадратная матрица порядка M. Найти сумму элементов ее диагоналей. При написании программу...


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

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

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