Ввести целочисленный массив, состоящий из 10 элементов. Определить сумму и кол-во элементов, расположенных до первого отрицательного числа.
Язык: Паскаль .net
Ответы
Ответ дал:
0
Ответ:
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.
btstaetae997:
прошу вас
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад