zadachi v TP

[dante2010]

1. Последовательно вводятся N целых чисел. Определить каких среди них чисел больше: положительных или отрицательных.

2. Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень – отрицательные.
Помогите кто нить решить, плиз...

[_-Re@l-_]

Ну, первая:

uses crt;
var N,i,pol,otr,x:integer;
begin
       clrscr;
       readln(n);
       pol:=0;otr:=0;
       for i:=1 to n do
       begin
            readln(x);
            if x>0 then pol:=pol+1;
            if x<0 then otr:=otr+1;
      end;
      if pol>otr then write('Положительных');
      if otr>pol then write('Отрицательных');
      if pol=otr then write('Одинаково');
      readln;
end.

[_-Re@l-_]

Вторая:

uses crt;
var a,b,c:real;
begin
       clrscr;
       readln(a,b,c);
       if a>=0 then a:=sqr(a) else a:=sqr(sqr(a));
       if b>=0 then b:=sqr(b) else b:=sqr(sqr(b));
       if c>=0 then c:=sqr(c) else c:=sqr(sqr(c));
       write('a = ',a:5:2,' b = ',b:5:2,' c = ',c:5:2);
       readln;
end.

[dante2010]

Спасибо огромное, выручил)

[_-Re@l-_]

Нажми на весы и там добавь репутации