Question

Ввести целочисленный массив, состоящий из 10 элементов. Определить сумму и кол-во элементов, расположенных до первого отрицательного числа. Язык: Паскаль .net

Answer 1

PascalABC .Net

Объяснение:

begin

 WriteLn('Введите элементы массива:');

   var a := ReadArrInteger(10);

   a.PrintLn;

   WriteLn('Кол-во элементов, расположенных до первого отрицательного числа, равно ', a.IndexOf(a.Where(x -> x < 0).First));

   WriteLn('Сумма элементов, расположенных до первого отрицательного числа, равна ', a[:a.IndexOf(a.Where(x -> x < 0).First)].Sum);

end.