Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
var n := ReadInteger('Укажи длину массива:');
var a := ReadArrInteger('Вводи:', n);
var j := ReadInteger('J =');
var i := a.FindIndex(p -> p <= j);
if i > -1 then
if a[i] = j then
Println('Такое число есть')
else
Println('Чисел, не меньших j:', i)
else
Println('Чисел, не меньших j:', n);
Println('Количество неотрицательных чисел в массиве:',
a.Count(p -> p >= 0))
end.
eggeniykoporin:
Можно на просто Паскале? тут другие переменные какие-то "Count" "a.Findlndex"
Вас заинтересует
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад