Консультация № 138128
27.05.2008, 17:50
0.00 руб.
0 1 1
Дан одномерный массив, состоящий из N элементов, найти сумму отрицательного и положительного элементов данного массива.

Обсуждение

Неизвестный
27.05.2008, 22:58
общий
это ответ
Здравствуйте, Sanq4! <font color=blue>К</font>од <font color=blue>В</font>ашей программы в приложении.
<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Пишем правильно.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/18359 target=_blank>Николай Владимирович / Н.В.</a></b> (Профессор)
<b>• Дата редактирования:</b> 27.05.2008, 23:18 (MCK)</font></fieldset>

Приложение:
uses crt; var a:array [1..20] of integer; i,n,pol,otr:integer; begin clrscr; writeln (‘vvedite kol-vo elementov‘); readln (n); pol:=0;otr:=0; writeln (‘vvedite massiv‘); for i:= 1 to n do begin writeln (‘vvedite ocherednoy element‘); readln (a[i]); if a[i]>0 then inc(pol,a[i]); if a[i]<0 then inc(otr,a[i]); end; writeln (‘summa polozhitelnyh elementov ravna ‘,pol); writeln (‘summa otricatelnyh elementov ravna ‘,otr); readln; end.
Форма ответа