Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из введенных чисел

@олжас11 · Регистрация: 14.01.2019

Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из введенных чисел.

@Sun Serega · 14.01.2019, 14:43

Если именно по ТЗ:

Pascal

1
2
3

begin
  writeln('пожалуйства, введите 5 чисел и посчитайте сумму положительных');
end.

А нормально:

Pascal

begin
  ReadSeqInteger(5)
  .Where(i->i>0)
  .Sum.Print;
end.

@олжас11 0 / 0 / 0 Регистрация: 14.01.2019 Сообщений: 2
		1
	Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из введенных чисел 14.01.2019, 12:07. Показов 863. Ответов 1 Метки нет (Все метки) Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из введенных чисел. 0

	14.01.2019, 14:43

Опции темы