Originariamente inviato da LeleFT
Ribadisco quanto già detto da pallinopinco: mostra il codice di quanto fatto finora e vediamo di ragionarci su per andare avanti...


Questo è un forum non il supermercato delle soluzioni agli esercizi per casa.


Ciao.
vabbè butto giù questo:

codice:
program asd;
Uses Crt;
Var numseq,numPo,numNe,numtot,num:integer;
    percP,percN:real;

begin
clrscr;
numtot:=0;
numseq:=0;
num:=0;
writeln('la sequenza dei numeri è: ');
readln(numseq);
while numtot<=numseq do
begin
        writeln('numero: ');
        readln(num);
  if num>0
   then
     begin
       writeln('i numeri positivi sono: ' , //che cavolo metto?);
        readln;
     end
   else
     begin
      writeln('i numeri negativi sono: ' , //che cavolo metto));
      readln;
     end;
end;
percP:=numseq/   //metterò l'insieme dei numeri positivi;
writeln('la media dei numeri positivi è: ' ,percPo);
readln;
percN:=numseq/   //metterò l'insieme dei numeri negativi;
writeln('la media dei numeri negativi è: ' , percNe);
readln();
end.

avevo buttato giù questo codice in fretta e in furia, e penso proprio che sia sbagliato

lo sbaglio starà dopo l'istruzione while_do ...
inoltre mi sa che forse non ho posto qualche variabile :=0... :master:

grazie