Напиши класс, который принимает с клавиатуры 2 целых числа и, если оба имеют одинаковый знак, то выводят соответственное сообщение, а если разный знак-разные знаки. если хотя бы одно из чисел равно нулю, выводят сообщение некорректно. 2.напиши класс, который принимает с клавиатуры коэффициент квадратного уравнения a, b, c и находят его корни или выдает сообщение-действительных корней нет.

1)uses crt; var a,b: integer; begin readln(a); readln(b); if ((a> 0) and (b> 0)) or ((a< 0) and (b< 0)) then writeln('имеют одинаковые знаки'); if ((a> 0) and (b< 0)) or ((a< 0) and (b> 0)) then writeln('имеют разные знаки'); if (a=0) or (b=0) then writeln('некорректно'); end. 2) какой именно коэффициент?

Для стека:

const

 MAX_SIZE = 100;

var

 size, n: integer;

 stack: array[1..MAX_SIZE] of integer;

procedure push(a: integer);

begin

 inc(size);

 stack[size] := a;

end;

procedure view;

var

 i: integer;

begin

 for i := 1 to size do

   write(stack[i], ' ');

 writeln;

end;

Для очереди:

const

 MAX_SIZE = 100;

var

 head, tail: integer;

 queue: array[1..MAX_SIZE] of integer;

procedure push(a: integer);

begin

 queue[tail] := a;

 inc(tail);

end;

procedure view;

var

 i: integer;

begin

 for i := head to tail - 1 do

   write(queue[i], ' ');

 writeln;

end;

Объяснение:

Можно лучший , и учи C++

Var a: array [0..10] of integer;     i, p, o, n: integer; begin       for i : = 0 to 10 do       begin           a[i] : = random(100) - 50;           write(a[i], ' ');           if (a[i] > 0) then inc(p);           if (a[i] = 0) then inc(n);           if (a[i] < 0) then inc(o);       end;       writeln();       writeln(p, ' ', n, ' ', o); end.