1. Задать массив F (M, N),из 4 строк и5 столбцов, элементы заданы из диапазона [-20; 20] случайным образом• Найти количество положительных и кратных 7;• Найти среднее арифметическоеотрицательных;• Найти Min элемент и его индексы;•Найти Max элемент среди отрицательных и его индексы.

const
  mm=50; { максимально возможное кол-во строк }
  nn=50; { максимально возможное кол-во столбцов }
var
  f:array[1..mm,1..nn] of integer;
  i,j,m,n,k,s:integer;
begin
  Randomize;
  Write('Количество строк в массиве: '); Read(m);
  Write('Количество столбцов в массиве: '); Read(n);
  Writeln('*** Исходный массив ***');
  for i:=1 to m do begin
    for j:=1 to n do begin
      f[i,j]:=Random(41)-20; { [-20;20] }
      Write(f[i,j]:4)
      end;
    Writeln
    end;
  Write('Количество положительных элементов, кратных 7: ');
  k:=0;
  for i:=1 to m do
    for j:=1 to n do
      if (f[i,j]>0) and (f[i,j] mod 7=0) then k:=k+1;
  Writeln(k);
  Write('Среднее арифметическое отрицательных элементов: ');
  k:=0; s:=0;
  for i:=1 to m do
    for j:=1 to n do
      if f[i,j]<0 then begin k:=k+1; s:=s+f[i,j] end;
  if k>0 then Writeln(s/k:0:5)
  else Writeln(0);
  Write('Минимальный элемент равен ');
  k:=100;
  for i:=1 to m do
    for j:=1 to n do
      if f[i,j]<k then k:=f[i,j];
 Write(k,', индексы:');
 for i:=1 to m do
    for j:=1 to n do
      if f[i,j]=k then Write(' [',i,',',j,']');
 Writeln;
 Write('Максимальный элемент среди отрицательных равен ');
  k:=-100;
  for i:=1 to m do
    for j:=1 to n do
      if (f[i,j]>k) and (f[i,j]<0) then k:=f[i,j];
 Write(k,', индексы:');
 for i:=1 to m do
    for j:=1 to n do
      if f[i,j]=k then Write(' [',i,',',j,']');
 Writeln;
end.


Количество строк в массиве: 5
Количество столбцов в массиве: 8
*** Исходный массив ***
  -4  11  -5 -12   7  16 -10   6
   8  -3 -12 -16  15   2  -2  -6
  16   8  18   0 -10   8  18   7
  17   7 -14  -4  -1  -8  13  -1
   3 -18  16 -10   4 -17  19 -18
Количество положительных элементов, кратных 7: 3
Среднее арифметическое отрицательных элементов: -9.00000
Минимальный элемент равен -18, индексы: [5,2] [5,8]
Максимальный элемент среди отрицательных равен -1, индексы: [4,5] [4,8]