Одномерный массив

[BDA]

Вот это уже другой разговор.

program s1;

uses crt;

const
  nmax = 100;

var
  a, b: array [1 .. nmax] of real;
  n, m, j: integer;
  d, x1, x2, q: real;

begin
  clrscr;
  randomize;
  repeat
    write('Размер массива A до ', nmax, ' n = ');
    readln(n);
  until n in [1 .. nmax];
  writeln('Массив A:');
  for j := 1 to n do
  begin
    a[j] := -5 + random(11); // возможно, преподаватель хочет ручной ввод
    write(a[j]:0:3, ' ');
  end;
  writeln;
  write('q = ');
  readln(q);
  m := 0;
  for j := 1 to n do
  begin
    d := a[j] * a[j] + q;
    if d >= 0 then
    begin
      x1 := a[j] + sqrt(d);
      x2 := a[j] - sqrt(d);
      if (x1 > 0) and (x2 > 0) then
      begin
        inc(m);
        b[m] := a[j];
      end;
    end;
  end;
  if m = 0 then
    write('Нет элементов, удовлетворяющих условию')
  else
  begin
    writeln('Массив B:');
    for j := 1 to m do
      write(b[j]:0:3, ' ');
  end;
  readln;
end.

Во-первых, не забывайте использовать кнопочку Решетка # для оформления кода.
Во-вторых, преподаватель, возможно, хочет ручного ввода массива A.
В-третьих, у Вас в формуле дискриминанта была ошибка (исправил формулы дискриминанта и корней - Корни квадратного уравнения при чётном коэффициенте b).
В-четвертых, проверять на положительность корни нужно в том же if'е, что и дискриминант.
В-пятых, пусть лучше массивы будут вещественными.
Упрощать тут нечего.

[Настена95]

и тишина

[Настена95]

ой, спасибо)

[BDA]

Сообщение от Настена95

и тишина

Вы о чем?
Или только я вижу http://programmersforum.ru/showpost....4&postcount=11?

Сообщение от Настена95

ой, спасибо)

Нужно высыпаться
Пожалуйста.

[Настена95]

Сообщение от BDA

Вы о чем?
Или только я вижу http://programmersforum.ru/showpost....4&postcount=11?



Нужно высыпаться
Пожалуйста.

правда,извиняюсь,просто всю ночь не спала и ничего не вижу
поэтому ещё раз прошу прощения