Помогите с контрольной

[karinskih]

Народ помогите! Делаю контрольную по информатике для бухгалтеров, один вопрос по Паскалю
В среде "Turbo Pascal" создать программу для решения задачи:
Создать целочисленный двумерный массив М, имеющий 8 строк и 10 столбцов с помощью генератора случайных чисел от 0 до 100. Вывести на дисплей наибольший и наименьший элементы этого массива, указав на пересечении каких строк и столбцов находятся эти элементы.
В программе желательно написать коментарии, так как я в Паскале полный ноль. Заранее спасибо.

[Alex21]

Поиск по форуму.
Решена уже уйма аналогичных задач.

[kommunist]

Поиск максимального и минимального элемента массива.

program massiv;
uses crt;
const n = 8;
      m = 10;
type matrix  = array[1..n,1..m] of integer;
var  a:matrix;
     i:integer;
     j:integer;
     max:integer;
     min:integer;
 
begin
   clrscr;
   randomize;
   for i:= 1 to n do
begin
   for j:= 1 to m do
begin
   a[i,j] := random(101);
   write(a[i,j]:2,' ');
end;
   writeln;
end;
   max:=a[1,1];
   min:=a[1,1];
   writeln;
   for i:= 1 to n do
begin
   for j:= 1 to m do
   begin
   if max < a[i,j]
   then
   max:=a[i,j];
  end;
   writeln;
end;
   write(max,' ');
   for i:= 1 to n do
begin
   for j:= 1 to m do
   begin
   if min > a[i,j]
   then
   min := a[i,j];
end;

end;
   write(min,' ');
   readln;
   end.

Нахождение номера индекса массива примерно следующий алгоритм
добавляем еще переменные для номеров. после нахождения максимального и минимального присваеваем этим переменных индексы этих массивов и выводим их.

[Alex21]

И чего вы любите столько циклов городить?
Вот всего 2 цикла:

const n = 8;
      m = 10;
var
  a: array[1..n,1..m] of integer;
  i, j, min, max:integer;
  minPosX,MinposY,MAXposX,MAXPosY:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Randomize;
  min:=a[1,1]; // значение min (в начале =0)
  max:=a[1,1]; // значение Max (в начале =0)
  minposX:=1; minPosy:=1; // позиция min
  maxposX:=1; maxPosy:=1; // позиция Max

  for i:=1 to n do
  begin
    for j:=1 to M do
    begin
      a[i,j]:=Random(101);
      write(a[i,j]:3,' ');
      // ищем МАКС
      if a[i,j]>=max then
      begin
        max:=a[i,j];
        maxposX:=j;
        maxposY:=i;
      end;
      // Ищем МИН
      if a[i,j]<=min then
      begin
        min:=a[i,j];
        minposX:=j;
        minposY:=i;
      end;
    end;
    writeln;
  end;
  writeln;
  writeln('max = ',max:3,'[',maxposx,':',maxposy,']');
  writeln('min = ',min:3,'[',minposx,':',minposy,']');

  readln;
end.