Question

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

Answer 1

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

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Наименьший элемент равен ',a.Min)
end.

Пример
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46

№2

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

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

№3

begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
  Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
  Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.

Пример
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2