Составьте программу вычисления в массиве А(10) заполненном случайными числами из интервала (-5,10) количества отрицательных элементов

Полагаю, Pascal ABC.//Для Pascal ABC.Net:Var a:array[1..10] of longint;n,i,k:longint;Beginreadln(n); //Читаем количество элементов в массивеfor i:=1 to n dobeginread(a[i]); //Читаем каждый элемент в массивеif (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуляend;writeln(k); //Выводим счётчик kEnd.//Для Pascal ABC:Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longintBeginreadln(n); for i:=1 to n dobeginread(a[i]); if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с помощью +=, только с :=k+1end;writeln(k); //Выводим счётчик kEnd.