Найти максимальный среди минимальных элементов строк массива

@alex2099 · Регистрация: 20.11.2016

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

В двумерном массиве Arr[1..n,1..m] найти максимальный среди минимальных элементов строк массива. Вывести на экран значения этих элементов и их индексы

@Hitoku · 13.04.2017, 00:09

Pascal

var
  i,j,n,m,imin,jmin,imax,jmax:byte;
  a:array[1..100,1..100] of integer;
begin
  randomize;
  write('N,M = '); readln(n,m);
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(101); write(a[i,j]:3,' ');
    end;
    writeln;
  end;
  for i:=1 to n do begin
    imin:=i; jmin:=1;
    for j:=2 to m do
      if a[i,j]<a[imin,jmin] then begin
        imin:=i; jmin:=j;
      end;
    writeln('Min = ',a[imin,jmin],'(',imin,',',jmin,')');
    if i=1 then begin
      imax:=imin; jmax:=jmin;
    end else
    if a[imin,jmin]>a[imax,jmax] then begin
      imax:=imin; jmax:=jmin;
    end;
  end;
  writeln('Max = ',a[imax,jmax],'(',imax,',',jmax,')');
end.

@alex2099 0 / 0 / 0 Регистрация: 20.11.2016 Сообщений: 82
		1
	Найти максимальный среди минимальных элементов строк массива 12.04.2017, 23:02. Показов 2177. Ответов 1 Метки нет (Все метки) В двумерном массиве Arr[1..n,1..m] найти максимальный среди минимальных элементов строк массива. Вывести на экран значения этих элементов и их индексы 0

Опции темы

Найти максимальный среди минимальных элементов строк массива

Решение