Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Jacky
2 / 2 / 1
Регистрация: 18.11.2012
Сообщений: 25
1

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

16.02.2013, 16:17. Просмотров 526. Ответов 3
Метки нет (Все метки)

Дана квадратная матрица порядка Т. Для каждого столбца найти наименьший элемент. Вывести произведение найденных элементов.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2013, 16:17
Ответы с готовыми решениями:

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

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

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

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

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

3
SHMS
6 / 6 / 7
Регистрация: 13.02.2013
Сообщений: 152
16.02.2013, 17:37 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
program x;
type
mass=array[1..10,1..10] of integer;
mas=array[1..10] of integer;
var
i,j,T,P,min:integer;
A:mass;
b:mas;
begin
writeln('Введите поряд матрицы А');
readln(T);
p:=1;
writeln('Введите матрицу');
for i:=1 to T do
  for j:=1 to T do
    readln(A[i,j]);
for j:=1 to T do begin
 b[j]:=A[j,1];
  for i:=1 to T do begin
   if b[j]>A[i,j] then
     b[j]:=A[i,j];
     end;
    end;
 for j:=1 to T do
 p:=p*b[j];
 writeln('Произведение наименьших элементов из столбца равно ',p);
 end.
0
Jacky
2 / 2 / 1
Регистрация: 18.11.2012
Сообщений: 25
16.02.2013, 18:51  [ТС] 3
Зачем через тип и 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
uses crt;
var a: array[0..255,0..255] of integer;
i,j,min,n: integer;
begin
min:=999999;
write('Ведите размерность массива: ');
read(n);
for i:= 1 to n do
for j:= 1 to n do
begin
a[i,j]:=random(9);
write(' ',a[i,j]);
if j=n then writeln;
end;
for j:= 1 to n do
begin
for i:= 1 to n do
begin
if a[i,j]<min then
min:=a[i,j];
if i=n then
begin
writeln(' Минимальный элемент ',j,' столбца равен ',min);
min:=999999;
end;
end;
end;
end.
0
SHMS
6 / 6 / 7
Регистрация: 13.02.2013
Сообщений: 152
16.02.2013, 20:53 4
так тебе нужно было вывести минимальный элемент каждого столбца или произведения?
0
16.02.2013, 20:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2013, 20:53

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

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

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


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

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

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