Легкую задачку помогите решить

[Styder]

Дано целое n>0, за которым следует n вещественных чисел. Определить, сколько среди них отрицательных. Label goto, пожалуйста

[Serge_Bliznykov]

во-первых, если N меньше нуля, то за ним отрицательное число чисел следовать не может. Это бессмыслица.

во-вторых, label / goto - это очень плохой стиль программирования на Паскале.
где и кто Вас плохому учит?!!

[ProBeginner]

Точно - чепуха. Перепишите задание, как было дано преподавателем.

[newerow1989]

label l1,l2;
const n=8;
var i,k:integer;
    p:array[1..n] of real;
begin
   Randomize;
   i:=1;
   l1:
   p[i]:=-10+Random(20)+Random;
   Write(p[i]:4:3,'  ');
   i:=i+1;
   If i<=n then
      goto l1;
   Writeln;
   Writeln;
   k:=0;
   i:=1;
   l2:
   If p[i]<0 then
      k:=k+1;
   i:=i+1;
   If i<=n then
      goto l2;
   Writeln(k);
   Readln;
end.

Сойдет?

[Styder]

Дано целое n>0, за которым следует n вещественных чисел. Определить, сколько среди них отрицательных. Через goto
ГДЕ ОШИБКА?
l

abel l1,l2;
const n=8;
var i,k:integer;
    p:array[1..n] of real;
begin
   Randomize;
   i:=1;
   l1:
   p[i]:=-10+Random(20)+Random;
   Write(p[i]:4:3,'  ');
   i:=i+1;
   If i<=n then
      goto l1;
   Writeln;
   Writeln;
   k:=0;
   i:=1;
   l2:
   If p[i]<0 then
      k:=k+1;
   i:=i+1;
   If i<=n then
      goto l2;
   Writeln(k);
   Readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Aleksandr H.]

Нормально оно работает. Что не нравится?

[Serge_Bliznykov]

Styder, зачем создавать ещё одну тему?! Вам одной темы мало?
Я слил обе ваши темы в одну.