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

@Dimitroff · Регистрация: 16.10.2012

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

найти минимальный элемент двумерного массива 10х10

@Paster Fob · 15.01.2013, 22:03

Pascal

const
  csize=10;
 
type
  tmatrix=array [1..csize,1..csize] of integer; 
 
procedure creatematrix(var arg:tmatrix);
var
  i,j:byte;
begin
  for i:=1 to csize do begin
    for j:=1 to csize do begin
      arg[i,j]:=random(100)+1;
      write(arg[i,j]:3);
    end;
    writeln;
  end;
end;
 
procedure findmin(var arg:tmatrix);
var
  min,i,j,indi,indj:byte;
begin
  min:=arg[1,1];
  for i:=1 to csize do begin
    for j:=1 to csize do 
      if arg[i,j]<min then begin
        min:=arg[i,j];
        indi:=i;
        indj:=j;
      end;  
  end;
  writeln('минимальный элемент в массиве ar[',indi,',',indj,'] = ',min);
end;
 
var
  ar:tmatrix;  
 
begin
  randomize;
  creatematrix(ar);
  writeln;
  findmin(ar);
end.

@Dimitroff 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 17
		1
	Найти минимальный элемент двумерного массива 10х10 15.01.2013, 18:32. Показов 2131. Ответов 1 Метки нет (Все метки) найти минимальный элемент двумерного массива 10х10 0

Опции темы

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

Решение