Сумма отрицательных и положительных целых чисел

@DMGR- · Регистрация: 07.10.2012

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

Помогите решить задачку

Дано:
В массиве из 20 целых чисел, найти:
Сумму положительных и отрицательных чисел.

@Фаер · 02.12.2012, 17:29

Pascal

Uses crt;
Var A:array[1..20] of integer; i,sp,so:integer;
Begin
ClrScr; Randomize;
For i:=1 to 20 do
 Begin
  A[i]:=random(51)-25; Write(A[i]:4);
  If A[i]<0 then inc(so,A[i]);
  If A[i]>0 then inc(sp,A[i]);
 End;
Writeln;
Write('Sum pol:',sp,' Sum otr:',so);
Readln;
End.

@DMGR- 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 103
		1
	Сумма отрицательных и положительных целых чисел 02.12.2012, 17:16. Показов 1735. Ответов 1 Метки нет (Все метки) Помогите решить задачку Дано: В массиве из 20 целых чисел, найти: Сумму положительных и отрицательных чисел. 0

	02.12.2012, 17:29

Сумма отрицательных и положительных целых чисел

Решение