[munst0r]

Autor terminator

program unos;
var brp,brn,n,i:integer;
pros:real;
begin
br:=0;
write('ucitaj n: '); readln(n);
for i:=1 to n do begin
if (i mod 2=0) then brp:=brp+1 else brn:=brn+1;
pros:=pros+i;
end;
pros:=pros/n;
writeln('ima ',brp,' parnih brojeva');
writeln('ima ',brn,' neparnih brojeva');
writeln('prosjek ucitanih brojeva je ',pros:3:3);
readln;
end.



evo, trebalo bi radit

Vjerojatno radi, ali ne ono sto bi trebalo...

Ti ovdje ucitavas samo broj n. No, trebao bi ucitati n, a zatim jos toliko brojeva (npr. ako je n = 5, onda ucitavas jos 5 brojeva).