Ответы и объяснения

2013-05-20T14:13:57+04:00

const

  N = 10;

var

  m : array [1..N] of Integer;

  i, e: Integer;

begin

  e := 0;

  for i := 1 to N do

    if m[i] < 0 then inc(e);

 

  Writeln('Polojit: ', N - e);

  Writeln('Otric: ', e);

 

end.

2013-05-20T14:28:34+04:00

 

var a,d,o,n,i: integer;

begin
d:=0; o:=0;
randomize;
writeln('vvedite n ' );
readln(n);
for i:=1 to n do
begin
a:=random(101)-50;
if a>0 then inc(d) else inc(o);
write(a,' ');
end;
writeln;
writeln('otric = ',o);
writeln('pol = ',d);
readln;

end.