c# написать простую программу с использованием цикла foreach, которая в одномерном массиве со случайными элементами находит максимальный и минимальный элементы, затем считает произведение элементов массива между макс и минимум (без них) и выводит результат

940x1024=962560 байт
или 962560 байт = 7700480 бит  (весь файл) или = 770048 бит/сек.
поскольку качество звука определяется не только частотой дискретизации, но и размерностью квантования (разрядностью по амплитуде), однозначного ответа к этой задаче быть не может, так как ни дискретизация, ни глубина квантования в задаче не определена.
Например 1)при частоте дискретизации 10кГц разрядность одногоканального звука равна 7700480/10000=770 уровней амплитуды, или 10 бит (2^10=1024) 512<770<1024 или
2) при глубине квантования 256 (2^8=1 байт) частота  дискретизации составляет: 770048/8=96256 Гц
к данной задаче можно сказать, что качество звука равно 770048бит/сек

Function NOK(a, b: integer): integer;
var
  c, d, e: integer;
begin
    c := a;
    d := b;
    while (d > 0) do
    begin
      c := c mod d;
      e := c;
      c := d;
      d := e;
    end;
    result := (a div c) * b;
end;

const
  n = 4;

var
  a: array [1..n] of integer;
  b: array [1..n*n] of integer;
  i, j, min_: integer;

begin
  writeln('Введите n целых чисел, только вот давайте без нулей, детсадовцы знают, что на 0 делить нельзя, плохо это');
  min_ := 2147483647;
  for i := 1 to n do
    readln(a[i]);
  for i := 1 to n do
    for j := 1 to n do
    begin
      if (i = j) then continue;
      b[i + n * (j - 1)] := nok(a[i], a[j]);
      min_ := min(b[i + n * (j - 1)], min_);
    end;
  write('     ');
  for i := 1 to n do
    write(i:5);
  writeln();
  for i := 1 to n do
  begin
    write(i:5);
    for j := 1 to n do
      write(b[i + n * (j - 1)]:5);
    writeln();
  end;
  writeln('min: ', min_);
end.