Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
TopSecret96
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 28
#1

Найти минимальный среди элементов ниже главной диагонали и произведения элементов в каждой строке - Pascal ABC

25.05.2015, 23:44. Просмотров 238. Ответов 1
Метки нет (Все метки)

В двумерном массиве A из m строк и n столбцов найти минимальный среди элементов ниже главной диагонали и произведения элементов в каждой строке.

есть такой код, но не могу понять его
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
 A:array[1..10,1..10] of integer;
 i,j,m,n,P,min:integer;
begin
 Readln(m,n);
 for i:=1 to m do
   for j:=1 to n do
     Readln(A[i,j]);
 min:=maxint; {maxint vozvrashaet 32727}
 for i:=1 to m do
   for j:=1 to n do
      if (i>j) and (A[i,j]<min) then
           min:=A[i,j];
 Writeln('min=',min);
for i:=1 to m do
  begin
    P:=1;
    for j:=1 to n do
      P:=P*A[i,j];
    writeln(P)
  end;
readln
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2015, 23:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти минимальный среди элементов ниже главной диагонали и произведения элементов в каждой строке (Pascal ABC):

В матрице среди элементов лежащих ниже главной диагонали найти первый минимальный элемент - Pascal ABC
В квадратной матрице N*N среди элементов лежащих НИЖЕ главной диагонали найти первый минимальный элемент.Определить его номер...

Определить минимальный элемент среди элементов матрицы, расположенных ниже главной диагонали - Pascal ABC
Задана матрица А (NxN). Определить минимальный элемент среди элементов матрицы, расположенных ниже главной диагонали. Указать его ...

Вычислить сумму элементов главной диагонали, минимальный элемент и его индексы среди всех элементов массива - Pascal ABC
В массиве размерностью 5*5, заполненного случайными числами от 100 до 200, вычислить сумму элементов главной диагонали, минимальный элемент...

В двумерном массиве А из m строк и n столбцов найти произведение элементов на главной диагонали и минимальные элементы в каждой строке - Pascal ABC
В двумерном массиве А из m строк и n столбцов найти произведение элементов на главной диагонали и минимальные элементы в каждой строке....

Из матрицы 4х4 получить матрицу порядковых номеров элементов, для нее найти сумму элементов ниже главной диагонали. - Pascal ABC
Из матрицы 4х4 получить матрицу порядковых номеров элементов, для нее найти сумму элементов ниже главной диагонали. вот задача: ...

Найти количество отрицательных элементов ниже главной диагонали - Pascal ABC
Двумерные массивы (матрицы) Цель работы: Сформировать понятие двумерного массива числового типа. Овладеть умениями обращения к элементам...

1
ermolay
3419 / 2358 / 685
Регистрация: 04.12.2011
Сообщений: 3,961
26.05.2015, 08:40 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от TopSecret96 Посмотреть сообщение
есть такой код
не самое оптимальное решение, можно быстрее пройти по массиву в поисках минимального. И массив - квадратный должен быть, достаточно одного n вместо m, n. Но прокомментирую это решение. (заинтересует более быстрое - пишите).
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
var
  A: array[1..10, 1..10] of integer;
  i, j: integer; // переменные для прохода по массиву
  m, n: integer; // количество строк и столбцов
  P: integer; // произведение элементов строки
  min: integer;// минимум
 
begin
  write('Enter m, n: '); // приглашение на ввод кол-ва строк и столбцов
  Readln(m, n);           // считываем количество строк и столбцов с клавиатуры
  for i := 1 to m do       
    for j := 1 to n do
    begin
      write('a[', i, ',', j, ']='); // приглашение на ввод элементов
      Readln(A[i, j]);    // считываем элементы массива
    end;
  min := maxint; {maxint vozvrashaet 32727} 
  for i := 1 to m do
    for j := 1 to n do
      if (i > j) // если мы ниже главной диагонали ...
      and (A[i, j] < min) then //... и элемент меньше минимума ...
        min := A[i, j]; //... принимаем за минимум этот элемент
  Writeln('min=', min);
  for i := 1 to m do // проходим по строкам
  begin
    P := 1; // очередному произведению присваиваем значение единицы
    for j := 1 to n do // проходим по элементам строки
      P := P * A[i, j]; // находим произведение
    writeln(i, '. ', P)// и выводим
  end;
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2015, 08:40
Привет! Вот еще темы с ответами:

Найти минимальный среди максимальных элементов каждой строки и максимальный среди минимальных каждого столбца - Pascal ABC
Дана матрица размера 5 x 10. Найти минимальный среди максимальных элементов каждой строки и максимальный среди минимальных каждого столбца.

Определить сумму элементов выше главной диагонали и ниже главной диагонали. какая из них больше - Pascal ABC
в матрице размером 5х5 определить сумму элементов выше главной диагонали и ниже главной диагонали. какая из них больше.

Найти сумму элементов матрицы, находящихся на главной диагонали и ниже ее - Pascal ABC
Помогите с программами!

Найти сумму всех элементов, расположенных на главной диагонали и ниже её - Pascal ABC
найти сумму всех элементов, расположенных на главной диагонали и ниже её матрицы размером 4х4,состоящей из элементов целого типа . Основные...


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

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

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