ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО!!!!
Написать программу в Pascal:
В одномерном МАССИВЕ введённом с клавиатуры определить сколько элементов имеет отрицательный индекс, сколько ненулевых элементов в массиве, рассчитать среднее значение положительных элементов.( Все эти условия должны быть в одной программе, и с помощью массива) СПАСИБО)))))
Ответы
Ответ дал:
0
PascalABC.NET
begin
var mas := ReadArrInteger('Введите массив:',ReadInteger('N ='));
Println(mas.Where(x -> x <> 0).Count, 'Не нулевых элемента');
Print(mas.Where(x -> x > 0).Average, 'Ср.Арифм.')
end.
//"определить сколько элементов имеет отрицательный индекс", а вот это я не понимаю...Индексы же вроде как нумеруются с 0 и они отрицательными быть не могут. Может не правильно сформулировал, либо я туплю
Приложения:
![](https://st.uroker.com/files/7d4/7d489abc1ba135dd4aa2db7cae33f01c.png)
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад