задача- найти сумму отрицательных элементов [Паскаль] - Помощь студентам

Анна22 · 07.12.2010, 21:00

В массиве чисел А1, А2….Аn найти сумму отрицательных элементов.
решите пожалуйста!

Mad_Cat · 07.12.2010, 21:02

Код:

s:=0;
for i:=1 to n do
if a[i]<0 then s:=s+a[i];

07.12.2010, 21:00	#1
Анна22 Новичок Джуниор Регистрация: 06.12.2010 Сообщений: 19	задача- найти сумму отрицательных элементов [Паскаль] В массиве чисел А1, А2….Аn найти сумму отрицательных элементов. решите пожалуйста!

07.12.2010, 21:02	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `s:=0; for i:=1 to n do if a[i]<0 then s:=s+a[i];` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Pascal - Найти сумму всех ее отрицательных элементов и заменить ею все диагональные элементы этой матрицы	NewBi	Паскаль, Turbo Pascal, PascalABC.NET	2	24.04.2010 09:15
Сумму положительных элементов и сумму отрицательных элементов	Natali_11111	Помощь студентам	6	04.03.2010 13:53
Найти максимальный из положительных элементов матрицы и сумму отрицательных элементов.	bessonov12	Microsoft Office Excel	7	04.05.2009 05:44
Найти сумму квадратов отрицательных элементов массива	bbk_serg	Помощь студентам	7	21.01.2009 12:33