Решите в паскале. если можно с блок - схемой. дана последовательность чисел. вывести на экран все отрицательные числа.

Massive : array[0..999] of integer;   //создаем массив var j : integer;     //описываем переменную счетчика begin readln(n);   //колво элементов for j = 1 to n do  if massive[j] < 0 then writeln(massive[j]) readln() end.

Не будет работать если у  переменной "а" будет максимальное значение если a> b то m: =a                                       if a> b then m: =a; иначе           m: =b всё                               else           m: =b; если   c> b то m: =c                                     if c> b then m: =c иначе           m: =b всё                               else           m: =b; если   a> c то m: =a                                     if a> c then m: =a иначе           m: =c всё                               else           m: =c;

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