В массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение - Turbo Pascal

Формулировка задачи:

в квадратном числовом массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение.

Код к задаче: «В массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение - Turbo Pascal»

textual
uses crt;
const n=4 ;
var a,b:array[1..т,1..n] of integer;
i,j,idx1,idx2,idx3,idx4,max,min,k:integer;
BEGIN
clrscr;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(10)+7;
 
   for i:=1 to n do
    begin
    for j:=1 to n do
     write(a[i,j]:4);
      writeln;
      end;
       writeln;
 
       min:=a[1,1];idx1:=1;idx2:=1;
       max:=a[1,1];idx3:=1;idx4:=1;
       for i:=1 to n do
        for j:=1 to n do
         if a[i,j]>max then
         begin
          max:=a[i,j];
          idx1:=i;
          idx2:=j;
          end
           else
            if a[i,j]<min then
             begin
              min:=a[i,j];
              idx3:=i;
              idx4:=j;
              end;
            writeln('MAX = ',max,' координаты  ',idx1,' ',idx2);
            writeln('MIN = ',min,' координаты  ',idx3,' ',idx4);
            writeln;
 
 
 
 
readkey;
END.

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ