ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Млин, сорри, пост невнимательно прочел ((

Цитата:

где count целочисленная переменная, инициализированная нулем перед циклом

Этого недостаточно, ее еще нужно описать в разделе var

Neovild, одно замечание - массив будет заполняться одним числом, ибо отсутствует Randomize в начале процедуры
А вот этот код для чего?

Код:

while i<=MAX do begin
      inc(i);
      if a[i-1]<0 then begin
	pro:=a[i-1]; break; end;
    end;

Поиск в массиве первого отрицательного числа? Имхо, это лишнее немного, достаточно проинициализировать переменную pro единицей перед циклом вычисления произведения (чуть не написал "производной"

). Хотя ваш вариант программы тоже приемлем