Составьте программу, которая позволяет ввести элементы массива а [1...10] с клавиатуры и...

Question

Составьте программу, которая позволяет ввести элементы массива а [1...10] с клавиатуры и выводит на экран количество отрицательных элементов и их индексы.
P.S. не надо искать ответ в инете, т.к. там не правильно

Answer 1

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var a:=ReadArrInteger('Введите 10 чисел, нажмите Enter'+#13#10,10);
  var t:=a.Select((x,i)->(x,i+1)).Where(x->x[0]<0);<br>  Write('Отрицательных- ',t.Count,'; их номера ');
  t.Select(x->x[1]).Println
end.

Пример
Введите 10 чисел, нажмите Enter
 3 14 0 -13 6 -11 -4 0 7 12
Отрицательных- 3; их номера 4 6 7

Comments

что это?