Определить число положительных элементов до первого отрицательного в массивах Х(40), Y(50), Z(N)

@kligan s uu · Регистрация: 26.03.2018

Author24 — интернет-сервис помощи студентам

написать программу с применением функции.(по простому пожалуйста)
Определить число положительных элементов до первого отрицательного в массивах Х(40), Y(50), Z(N). Примечание Z<=50

@ZX Spectrum-128 · 26.03.2018, 18:52

Определить число положительных элементов до первого отрицательного в массивах

@eaa · 26.03.2018, 21:14

Pascal

function f(a: array of integer): integer;
begin
  var k := a.FindIndex(i -> i < 0);
  Result := k = -1 ? a.Count : k
end;
 
begin
  var x := ArrRandomInteger(40, -50, 50);
  x.Println;
  Println(f(x));
  var y := ArrRandomInteger(50, -50, 50);
  y.Println;
  Println(f(y));
  var n := ReadInteger('Введите N:');
  var z := ArrRandomInteger(n, -50, 50);
  z.Println;
  Println(f(z))
end.

@kligan s uu · 27.03.2018, 10:09 **[ТС]**

а можно проще?

@Puporev · 27.03.2018, 10:19

Сообщение от kligan s uu

а можно проще?

А зачем тему создаете в разделе ABC.net? Создали бы в простом АВС и было бы привычнее (не проще).

@JuriiMW · 27.03.2018, 10:20

Сообщение от kligan s uu

а можно проще?

Куда ещё проще?

Разве что функцию уменьшить:

Pascal

1	function f(a: array of integer) := a[:a.FindIndex(i -> i < 0)].Count;

Дальнейшее упрощение — это отказ от функции ;–)

@kligan s uu 0 / 0 / 0 Регистрация: 26.03.2018 Сообщений: 7
		1
	Определить число положительных элементов до первого отрицательного в массивах Х(40), Y(50), Z(N) 26.03.2018, 17:37. Показов 943. Ответов 5 Метки нет (Все метки) написать программу с применением функции.(по простому пожалуйста) Определить число положительных элементов до первого отрицательного в массивах Х(40), Y(50), Z(N). Примечание Z<=50 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	26.03.2018, 18:52	2
	Определить число положительных элементов до первого отрицательного в массивах 0

@kligan s uu 0 / 0 / 0 Регистрация: 26.03.2018 Сообщений: 7
	27.03.2018, 10:09 [ТС]	4
	а можно проще? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.03.2018, 10:19	5
	Сообщение от kligan s uu а можно проще? А зачем тему создаете в разделе ABC.net? Создали бы в простом АВС и было бы привычнее (не проще). 0

	27.03.2018, 10:20