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

Question

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

Comments

У тебя 4 задачи было пару минут назад :) Я сделал их все.

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);<br>  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