Напишите плиз, 3 вариант!!!! Тема: Поиск элементов массива, удовлетворяющих заданному...

Question

Напишите плиз, 3 вариант!!!!
Тема: Поиск элементов массива, удовлетворяющих заданному условию

---

Answer 1

// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var z:=MatrRandom(4,6,10,80);
  z.Println(4); Writeln(4*z.ColCount*'-');
  var t:=z.ElementsWithIndexes.MaxBy(x->x[2]);
  Writeln('Максимальный элемент z[',t[0]+1,',',t[1]+1,']=',t[2])
end.

Пример
*** Исходный массив ***
  47  18  64  34  29  42
  68  55  80  68  44  34
  15  51  43  75  32  52
  21  38  36  48  58  69
------------------------
Максимальный элемент z[2,3]=80

Answer 2

Const
   N = 4;
   M = 6;
Var
   Z:array[1..N,1..M] of integer;
   i,j,iMax,jMax:integer;
Begin
Randomize;
WriteLn('Z(',N,',',M,'):');
iMax:=1;
jMax:=1;
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        Z[i,j]:=random(71)+10;
        Write(Z[i,j],' ');
        if Z[i,j] > Z[iMax,jMax] then
           Begin
           iMax:=i;
           jMax:=j;
           End;
        End;
    WriteLn;
    End;
WriteLn('Max(Z) = Z[',iMax,',',jMax,'] = ',Z[iMax,jMax]);
End.