Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
-4 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 28
1

В каждой строке матрицы выбрать элемент с наименьшим значением

10.01.2014, 01:41. Показов 519. Ответов 4
Метки нет (Все метки)

Помогите написать программу

Дана действительная матрица размером n x m, все элементы
которой различны. В каждой строке выбирается элемент с наименьшим
значением, затем среди этих чисел выбирается наибольшее.
Указать индексы элемента с найденным значением.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2014, 01:41
Ответы с готовыми решениями:

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

Выбрать в каждой строке матрицы из символов символ с наименьшим кодом и поставить его первым в строке матрицы.
Помогите написать программую Дана матрица размером M x N, состоящая из символов. Выбрать в...

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

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

4
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
10.01.2014, 03: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
var mas:array [1..100,1..100] of Integer;
    x:array [1..100] of Integer;
    i,j,m,n,min,max:integer;
begin
  Write('Enter - = ');Readln(n);
  Write('Enter | = ');Readln(m);
  Writeln(' Array ');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          mas[i,j]:=random(50)-25;
          write(mas[i,j],' ');
        end;
      writeln;
    end;
    Writeln('Array min');
  for i:=1 to n do
    begin
      x[i]:=mas[i,1];
      for j:=1 to m do
         begin
           if (x[i]>mas[i,j]) then x[i]:=mas[i,j];
         end;
    write(x[i],' ');
    end;
   writeln;
   max:=x[1];
   for i:=1 to n do
    begin
      if (max<x[i]) then max:=x[i];
    end;
  
   Write('MAX = ',max);
Readln;
end.
0
-4 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 28
29.01.2014, 17:31  [ТС] 3
а можно не настолько крутую
0
Модератор
8414 / 4164 / 2877
Регистрация: 17.08.2012
Сообщений: 13,282
30.01.2014, 00:16 4
newyork7776,
Цитата Сообщение от deadzwar Посмотреть сообщение
Дана действительная матрица
Цитата Сообщение от newyork7776 Посмотреть сообщение
Pascal
1
//...array [1..100,1..100] of Integer;
newyork7776, ???
Цитата Сообщение от deadzwar Посмотреть сообщение
а можно не настолько крутую

Не по теме:

deadzwar, это хорошо написанная и весьма несложная программа. Признайтесь мне, Вы лентяй или просто сомневаетесь в своих силах?


Вот Вам более короткий, но менее понятный вариант, всего два вложенных цикла.
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
const n = 5;
      m = 4;
 
var a: array [1..n, 1..m] of real;
    i, j, imin, imax, jmax: integer;
 
begin
  randomize;
  jmax := 1;
  writeln('Source array:');
  for j := 1 to n do
    begin
      imin := 1;
      for i := 1 to m do
        begin
          a[i, j] := random * 198 - 99;
          if a[i, j] < a[imin, j] then imin := i;
          write(a[i, j]:9:3)
        end;
      if j = 1 then imax := imin;
      if a[imin, j] > a[imax, jmax]
        then begin
          imax := imin;
          jmax := j
        end;
      writeln
    end;
  writeln('column = ', imax, ',  row = ', jmax);
  readln
end.
0
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
30.01.2014, 02:48 5
Cyborg Drone, сори затупил
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2014, 02:48

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти сумму элементов строки матрицы, в которой расположен элемент с наименьшим значением
ПОМОГИТЬ СОСТАВИТЬ ПРОГРАММЫ НА ПАСКАЛЕ. Задача №1 В данной действительной квадратной матрице...

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

Поменять столбец матрицы А с наибольшим значением со столбцом матрицы В с наименьшим значением
Даны две целочисленные матрицы A и B размером M на N, все элементы которых различны. Поменять...

Элемент массива с наименьшим значением и его номер
Найти элемент с наименьшим значение и его номер среди положительных элементов массива. Определить...


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

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

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