Составить программу нахождения минимального элемента матрицы и определения его местоположения

@samanow · Регистрация: 30.05.2013

Студворк — интернет-сервис помощи студентам

Дана вещественная матрица А(N,M). Составить программу
нахождения минимального элемента матрицы и определения
его местоположения

@Striker · 31.05.2013, 12:48

Pascal

const
  n = 5;
  m = 5;
 
var
  mas: array[1..n, 1..m] of integer;
  i, j, k, x, y, min: integer;
 
begin
  for i := 1 to n do
    for j := 1 to m do
      mas[i, j] := random(9) + 1;
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(mas[i, j]:4);
    writeln;
  end;
  min := mas[1, 1];
  for i := 1 to n do
    for j := 2 to n do
    begin
      for k := 1 to m do
        if (min >= mas[i, j]) then
        begin
          min := mas[i, j];
          x := i;
          y := j;
        end;
    end;
  
  Writeln('Минимальный элемент -  ', min, ' Строка - ', x, ' Столбец - ', y);
end.

@samanow 0 / 0 / 0 Регистрация: 30.05.2013 Сообщений: 7
		1
	Составить программу нахождения минимального элемента матрицы и определения его местоположения 30.05.2013, 14:53. Показов 1697. Ответов 1 Метки нет (Все метки) Дана вещественная матрица А(N,M). Составить программу нахождения минимального элемента матрицы и определения его местоположения 0

Опции темы

Составить программу нахождения минимального элемента матрицы и определения его местоположения

Решение