Напишите программу, которая в последовательности натуральных чисел определяет произведение отрицательных чисел программа получает на вход количество чисел последовательности, а затем сами числа. в последовательности всегда имеется отрицательное число. программа должна вывести одно число -произведение отрицательных чисел. !

Это же квадратное уравнение.

Program Sq1;

Var A, B, C, D, X1, X2 : Real;

Begin

 Writeln ('Введите коэффициенты квадратного уравнения');

 Readln (A,B,C);

 D:=B*B-4*A*C;

    If D<0 Then Writeln ('Корней нет! ')

    Else

       Begin

          X1:=(-B+SQRT(D))/2/A;

          X2:=(-B-SQRT(D))/2/A;

          Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)

      End;

End.

  информатика-наука о методах и процессах сбора, хранения, обработки, анализа и оценивания информации, обеспечивающих возможность её использования для принятия решений[1]. Она включает дисциплины, относящиеся к обработке информации в вычислительных машинах и вычислительных сетях: как абстрактные, вроде анализа алгоритмов, так и конкретные, например разработка языков программирования и протоколов передачи данных.

География-наука о материках,реках и т.д

Фонетика-раздел языкознания, изучающий звуки речи и звуковое строение языка (слоги, звукосочетания, закономерности соединения звуков в речевую цепочку).

Ботаника-наука о растениях, раздел биологии.

Земледе́лие — это наука и отрасль сельскохозяйственного производства, основанная на использовании земли с целью выращивания сельскохозяйственных культур.

Животново́дство — отрасль сельского хозяйства, занимающаяся разведением сельскохозяйственных животных для производства животноводческих продуктов[1].

Тяжёлая промышленность включает горное дело, чёрную металлургию, стальную индустрию и химическое производство.

Лёгкая промышленность — совокупность специализированных отраслей промышленности, производящих главным образом предметы массового потребления из различных видов сырья. Лёгкая промышленность занимает одно из важных мест в производстве валового национального продукта и играет значительную роль в экономике страны. Лёгкая промышленность осуществляет как первичную обработку сырья, так и выпуск готовой продукции.

Цикл For                                                      

"Цикл со счётчиком"

В начале присваивает заданной переменной (переменная-счётчик) начальное число. Переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. Цикл начинает повторение пока счётчик будет меньше или равен второму числу. Когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.

В строках с командами цикла не должно быть команды, которая изменяет значение счётчика, иначе будет ошибка. Счётчик нельзя изменять  внутри цикла пока он идёт.

Запись

for ПеременнаяСчётчик := Число Направление Второечисло do

begin

 Строки с командами, которые должен повторять цикл;

end;

Пример

Программа, которая выводит числа от 5 до 10 и в конце пишет "Конец"

program raf105;

var i: integer;

begin

for i:=5 to 10 do

begin

 writeln(i);

end;

writeln('Конец');

end.

Цикл While                                                  

"Цикл с условием старта"

Начинает повторение, только если соблюдено заданное условие

Запись

while Условие do

begin

 Строки с командами, которые должен повторять цикл;

end;

Пример

Программа, которая просит ввести 1, если введено не 1, то просит ввести снова. Когда введено 1, пишет "Вы ввели 1. Конец"

program raf105;

var a: integer;

begin

write('Введите 1: ');

readln(a);

while a <> 1 do

begin

 write('Вы ввели не 1. Введите число снова: ');

 readln(a);

end;

writeln('Вы ввели 1. Конец');

end.

Цикл Repeat                                               

"Цикл с условием завершения"

Похож на цикл While, только заканчивает повторение, если соблюдено условие. Обычно используется если цикл нужно повторить хотя бы 1 раз.

Запись

repeat

 Строки с командами, которые должен повторять цикл;

until Условие;

Пример

Программа, которая запрашивает пароль, если введено 123, то выводит "Конец" если введено не 123, то выводит сообщение "Введите пароль снова"

program raf105;

var a: integer;

begin

a:= 0;

repeat

 if a = 0

   then write('Введите пароль: ')

   else write('Введите пароль снова: ');

 readln(a);

 until a = 123;

 writeln('Конец');

end.