popraw program dany jest n elementowy ciąg liczb całkowitych napisz program który wyznacza liczbę elementów ujemnych(czyli ile jest ujemnych cyfr w ciągu) i drukuje elementy ciągu w odwrotnej kolejności
program zad;
uses crt;
type
ciag= array[1..30];
var
a:ciag;
n,i,l:integer;
begin
write ('n=');
read (n);
begin
for i:==1 to n do
write ('a[',i,'=]);
read(a)
end;
l:=0;
for i :=1 to n do
if a<0 then
l:=l+1;
write ('liczb elementów ujemnych wynosi',l)
end.
I jak kto zamienić aby z liczało ile razy w danym tekście litera a