с задачей ,любой та или та любая Перед початком повені рівень води у річці становив H1 метрів. Щогодини
рівень води збільшується на 5%. Через скільки годин N рівень води перевищить
H2 метрів (H2>H1)?

В середовищі Pascal створіть програму для виведення на екран значень функції
y=2x-5 для х=0; 0,2; 0,4; 0,6; ... , 2. Кожну пару значень Х та Y виводьте з нового
рядка.

В операторах Dat[1] := 7; ... ; Dat[10] := 9; задаются элементы массива.
m := 0; n := 0; - начальные значения переменных m и n.
В цикле for k := 1 to 10 do ... каждый элемент массива сравнивается с текущим значением переменной m (Dat[k] >= m). Если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. Таким образом, после выполнения цикла значения переменных будут: m=10; n=8. На экран будет выведено значение 8 (это номер последнего максимального элемента массива).
ответ: 8

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

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество колонок в массиве:');
  Writeln('*** Исходный массив [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-9,9);
  a.Println(3); Writeln(3*a.ColCount*'-');
  Write('Колонок, где все элементы различны, ',
      a.Cols.Where(c->c.Distinct.Count=m).Count);
end.

Пример
Количество строк в массиве: 6
Количество колонок в массиве: 7
*** Исходный массив [6,7] ***
 -9  6 -1  5  1 -9 -6
 -2  9  1 -7 -6 -5 -1
  4 -7  2  1  3  1  2
  0  3  8  5 -6  8 -9
 -2 -2  8 -4 -7  0  8
 -2  1  1 -8 -9  1 -4

Колонок, где все элементы различны, 2