У чому полягає особливість пошуку першого елемента лінійної таблиці, який відповідає заданій умові?

Твой код не проверял. Недавно кому-то делал на Delphi. Переделал на Pascal. 

Приложил картинкой, если запутаешься. Если что-то не так работает, я поправлю.

//Pascal
var
  a, b, c, d, x1, x2: real;
begin
  write('Введите a = '); readln(a);
  write('Введите b = '); readln(b);
  write('Введите c = '); readln(c);
  if ((a = 0) and (b = 0) and (c = 0)) then
    writeln('X любое')
  else
  if a <> 0 then
  begin
       d := sqr(b) - 4 * a * c;
       if (d > 0) then
       begin
            x1 := (-b+sqrt(d))/(2*a);
            x2 := (-b-sqrt(d))/(2*a);
            writeln('x1 = ', x1);
            writeln('x2 = ', x2);
       end
       else
       if d = 0 then
       begin
            x1:=-b/(2*a);
            x2:=x1;
            writeln('x1 = ', x1);
            //writeln('x2 = ', x2);
       end
       else
       if d < 0 then
          writeln('Корней нет.');
  end
  else
  if (a = 0) and (b = 0) then
    writeln('Решений нет.')
  else
  if (a = 0) then
  begin
    x1 := (-c)/b;
    writeln('x = ', x1);
  end;
end.

1. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза? i:=3;

while i<=... do begin

writeln('Привет!');

i:=i+1;

end;

После каждого шага цикла к i прибавляется 1.

Изначально i = 3. Поэтому чтобы цикл выполнился ровно 4 раза, i сможет принять значения 3, 4, 5, 6.

Значит, нужно записать вместо ... число 6.

ответ: 6

2. Сколько раз будет выполнен этот цикл?

i:=6;

while i<5 do begin

writeln('Привет!');

i:=i+1;

end;

Т.к. i = 6, то на первом шаге цикла неравенство 6 < 5 будет уже неверно. Поэтому данный цикл выполнится 0 раз.

ответ: 0

3. Какое число будет выведено на экран в результате выполнения этого цикла?

i:=1;

write('9');

while i<3 do begin

write(i);

i:=i+1;

end;

Сначала до цикла будет выведено число 9.

Затем начинается цикл:

1 шаг (i = 1) : выведется 1

2 шаг (i = 2) : выведется 2

На 3 шаге (i = 3) цикл завершится, т.к. неравенство 3 < 3 неверно.

ответ: 912

4. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?

i:=4;

while i>=... do begin

writeln('Привет!');

i:=i-1;

end;

После каждого шага цикла от i отнимается 1. Изначально i = 4. Поэтому чтобы цикл выполнился ровно 2 раза, i сможет принять значения 4, 3.

Значит, нужно записать вместо ... число 3.

ответ: 3

5. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?

i:=...;

while i>=6 do begin

writeln('Привет!');

i:=i-1;

end;

После каждого шага цикла от i отнимается 1. Цикл завершается при i = 5. Поэтому чтобы цикл выполнился ровно 2 раза, i сможет принять значения 7, 6.

Значит, нужно записать вместо ... число 7.

ответ: 7

6. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза?

i:=...;

while i<=7 do begin

writeln('Привет!');

i:=i+1;

end;

После каждого шага цикла к i прибавляется 1. Цикл завершается при i = 8. Поэтому чтобы цикл выполнился ровно 3 раза, i сможет принять значения 5, 6, 7.

Значит, нужно записать вместо ... число 5.

ответ: 5

7. Чему будет равно значение переменной «a» после выполнения этого цикла?

i:=2;

a:=12;

while i<5 do begin

a:=a+i;

i:=i+1;

end;

1 шаг цикла (i = 2) : a = a + i = 12 + 2 = 14

2 шаг цикла (i = 3) : a = a + i = 14 + 3 = 17

3 шаг цикла (i = 4) : a = a + i = 17 + 4 = 21

На 4 шаге (i = 5) цикл завершится, т.к. неравенство 5 < 5 неверно.

ответ: 21