До ть будь ласка, дуже треба масив D [1..15] заповнити генератором випадкових чисел вывести в ListBox підрахувати добуток від'ємних елементів в даному масиві, вивести в Editт​

var

  number, N, npol, notr, n0, i: integer;  {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

begin

  writeln('Введите N');

  readln(N);

  for i:= 1 to N do

  begin

    writeln('Введите целое число');

    readln(number);

    if number < 0 then notr:= notr + 1;

    if number > 0 then npol:= npol + 1;

    if number = 0 then n0:= n0 + 1;

  end;

  writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.

ЭВМ первого поколения (1946-1958 ). Для этого поколения характерно использование электронных ламп, перфокарт, перфолент, реле и магнитных лент. Для компьютеров требовалось огромное пространство. Никакого ПО почти не было. На каждой машине свой язык программирования.
ЭВМ второго поколения ( 1958-1964 ). Появляются полупроводниковые транзисторы, которые заменяли электронные лампы; магнитные диски.

ЭВМ третьего поколения (1964-1972 ). Микросхемы или по другому интегральные схемы пришли на смену транзисторам. Производительность увеличивается до 10 млн. операций в секунду. Поддерживается многозадачность.

ЭВМ четвертого поколения ( 1972 - сегодня). Стали применятся большие интегрельные схемы. Появились микрокомпьютеры. Значительно уменьшилось требуемое место для размещениея компьютерной техники