Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: array[1..100] of integer;
i,ms,ps: integer;
begin
{vvod massiva a}
for i: = 1 to 100 do
if a[i] > 0 then ps: =ps+a[i]
else ms: =ms+a[i];
writeln(ps,ms);
end.
var a,b,c: integer;
read(a,b,c);
if a> =0 then writeln(a);
if b> =0 then writeln(b);
if c> =0 then writeln(c);
Популярные вопросы