1) Задан массив A(N). Подсчитать число различных по значению элементов. 2) Найти...

Question

1) Задан массив A(N). Подсчитать число различных по значению элементов.
2) Найти наименьший элемент массива размером МхN, элементы которого вводятся с клавиатуры.

Answer 1

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

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-5,5); a.Println;
  Writeln('Количество различных злементов равно ',
      a.Distinct.Count)
end.

Пример
n= 20
-1 -1 5 -3 0 5 5 -5 -2 -4 -1 -2 -2 -2 2 -2 -3 1 2 1
Количество различных злементов равно 9

№2

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('Вводите элементы построчно');
  var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MinBy(x->x[0]);
  Writeln('Минимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.

Пример
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -11 0 9
12 7 -12 0
8 23 6 20
Минимальный элемент A[2,3]=-12