Паскаль. Дан одномерный массив, значения которого вводятся с клавиатуры . Вычислить количество отрицательных элементов данного массива. На экран вывести
исходный массив и полученный результат

Var a:array[1..100] of integer;I,c,n:integer;BeginReadln(n);For i:=1 to n doBeginRead(a[i]);Write(a[i],' ');If a[i]<0Then c:=c+1;End;Writeln('кол-во отриц.=',c);End.