Найти сумму трех наибольших отрицательных четных элементов массива Р(22)

@Ekaterina_A · Регистрация: 21.11.2016

(на паскале)Найти сумму трех наибольших отрицательных четных элементов массива Р(22)

@Joy · 22.11.2016, 07:31

Pascal

begin
  var p:=ArrRandom(22,-100,100);
  write('p:');
  p.Println;
  var t:=p.Where(i->(not odd(i)) and (i<0)).orderbydescending(i->i).take(3);
  if t.Count<3 then writeln('В Указанном массиве нет трех четных отрицательных элементов!') else
     WritelnFormat('три наибольших отрицательных четных элемента:[{0}], их сумма:{1}',string.Join(' ',t.ToArray),t.Sum()); 
end.

@Ekaterina_A 0 / 0 / 0 Регистрация: 21.11.2016 Сообщений: 49
		1
	Найти сумму трех наибольших отрицательных четных элементов массива Р(22) 21.11.2016, 22:56. Показов 1225. Ответов 1 Метки нет (Все метки) (на паскале)Найти сумму трех наибольших отрицательных четных элементов массива Р(22) 0

Опции темы

Найти сумму трех наибольших отрицательных четных элементов массива Р(22)

Решение