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.