Найти минимальный элемент матрицы среди элементов выше главной диагонали

@dmitriy369 · Регистрация: 29.10.2012

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

Дана квадратная матрица A(nхn). Найти минимальный элемент матрицы среди элементов выше главной диагонали

@ermolay · 03.11.2012, 00:38

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,min: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  min:=a[1,2];
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i,j]<min then min:=a[i,j];
  writeln('Минимальный элемент выше главной = ',min);
  readln;
end.

@dmitriy369 0 / 0 / 1 Регистрация: 29.10.2012 Сообщений: 13
		1
	Найти минимальный элемент матрицы среди элементов выше главной диагонали 02.11.2012, 23:25. Показов 4874. Ответов 1 Метки нет (Все метки) Дана квадратная матрица A(nхn). Найти минимальный элемент матрицы среди элементов выше главной диагонали 0

Опции темы

Найти минимальный элемент матрицы среди элементов выше главной диагонали

Решение