// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-15,20); a.Println;
Writeln('1) ',a.Where(t->t>0).Min);
Writeln('2) ',a.Where((v,i)->i.IsEven).Min);
Writeln('3) ',a.Where(t->t.IsOdd).Min);
var i:=a.Select(t->Abs(t)).ToArray.IndexMin;
Writeln('4) a[',i,']=',a[i]);
Writeln('5) min=',a.Where(t->t mod 3=0).Min,
', max=',a.Where((v,i)->i.IsEven and v.IsOdd).Max);
Writeln('6) ',a.Where((v,i)->i.IsEven and (v<0)).Min);<br> var min:=a.Min;
Writeln('7) ',a.Where(t->t=min).Count-1);
for var j:=a.IndexMin+1 to 9 do a[j]:=0; a.Println
end.
Пример
6 10 14 14 13 9 -10 -12 -9 14
1) 6
2) -10
3) -9
4) a[0]=6
5) min=-12, max=13
6) -10
7) 0
6 10 14 14 13 9 -10 -12 0 0
Замечание. Программа может завершаться аварийно, если какой-либо пункт выполнить будет невозможно из-за отсутствия соответствующих элементов. В этом случае ее нужно запустить повторно. Обработка такой ошибки в программе не предусмотрена, поскольку из задания не следует, требунтся ли она и в чем должна состоять.