Question

Ce erori sunt in acest program Program P1;
type Vector=array[1..30] of integer ;
var B:Vector;i,n:integer;
Function numar(B:Vector;a:integer):integer;
var i,s,n:integer;
begin
s:=0;
for i:=1 to n do
if(B[i] mod 2=1) then s:=s+1;
numar:=s;
end;
begin
write('Dati n');
readln(n);
writeln('Numarul de elemente impare =',numar(B,n));
readln;
end.

Answer 1

in functia numar
la ciclul for
for i:=1 to a do// dar tu ai scris n in loc de a