Найти количество положительных элементов и корень из суммы модулей отрицательных элементов

@Andria · Регистрация: 02.04.2017

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

Найти количество положительных элементов и корень из суммы модулей отрицательных элементов.

@Zwelenewskiy · 29.05.2017, 17:13

Элементов чего? Последовательности, одномерного массива или матрицы?

@Andria · 29.05.2017, 19:55 **[ТС]**

одномерного массива

@Zwelenewskiy · 29.05.2017, 20:04

Pascal

var
  a: array of real;
 
begin
  
  var n: integer := ReadlnInteger('Размерность массива: '); 
  SetLength(a, n);
  
  var k: integer := 0;
  var s: real := 0;
  for var i := 0 to n - 1 do
  begin
    a[i]:= ReadlnInteger;
    if a[i] > 0
      then inc(k);
    if a[i] < 0
      then s += abs(a[i]);
  end;
  
  writeln('Кол-во положительных элементов: ', k, '; Корень из суммы модулей отрицательных элементов: ', sqrt(s));
  
end.

@Hitoku · 29.05.2017, 20:48

Pascal

begin
  var a := ArrRandom(ReadlnInteger('Размерность:'), -50, 50).Println;
  writeformat('Количество положительных: {0}{1}Корень суммы модулей отрицательных: {2}',
    a.Where(v -> v > 0).Count, NewLine, sqrt(a.Where(v -> v < 0).Sum(v -> abs(v))));
end.

@Andria 0 / 0 / 0 Регистрация: 02.04.2017 Сообщений: 43
		1
	Найти количество положительных элементов и корень из суммы модулей отрицательных элементов 29.05.2017, 12:39. Показов 807. Ответов 4 Метки нет (Все метки) Найти количество положительных элементов и корень из суммы модулей отрицательных элементов. 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	29.05.2017, 17:13	2
	Элементов чего? Последовательности, одномерного массива или матрицы? 0

@Andria 0 / 0 / 0 Регистрация: 02.04.2017 Сообщений: 43
	29.05.2017, 19:55 [ТС]	3
	одномерного массива 0

	29.05.2017, 20:48

Опции темы