buona sera ragazzi non so se sia opportuno chiedere questa cosa ma a breve ho un esame di informatica e mi toccherà programmare con DEV PASCAL sto avendo difficoltà con un esercizio e mi chiedevo se potreste aiutarmi, questo è l'esercizio mi trovo solo con il primo esempio gli altri due alla 10 cifra l'exe si chiude, http://www.unisa.it/uploads/7512/pascal_13_-_media_10_pos_e_neg.pdf
io lho svolto cosìì ma non capisco dov'è l'errore potete aiutarmi perfavore çç
program med;
var k,x,somma_pos,somma_neg,conta_pos,conta_neg:integer;
media_pos,media_neg:real;
begin
for k:= 1 to 10 do
begin
write ('inserisci il primo numero: ');
read(x);
if x>0 then
begin
conta_pos:=conta_pos+1;
somma_pos:=somma_pos + x;
end;
if x<0 then
begin
conta_neg:=conta_neg+1;
somma_neg:=somma_neg + x;
end;
end;
media_pos:=somma_pos/conta_pos;
media_neg:=somma_neg/conta_neg;
writeln ('la media pos e'' : ',media_pos:5:2);
writeln ('la media dei neg e'' : ' ,media_neg:5:2);
readln;
readln;
end.
io lho svolto cosìì ma non capisco dov'è l'errore potete aiutarmi perfavore çç
program med;
var k,x,somma_pos,somma_neg,conta_pos,conta_neg:integer;
media_pos,media_neg:real;
begin
for k:= 1 to 10 do
begin
write ('inserisci il primo numero: ');
read(x);
if x>0 then
begin
conta_pos:=conta_pos+1;
somma_pos:=somma_pos + x;
end;
if x<0 then
begin
conta_neg:=conta_neg+1;
somma_neg:=somma_neg + x;
end;
end;
media_pos:=somma_pos/conta_pos;
media_neg:=somma_neg/conta_neg;
writeln ('la media pos e'' : ',media_pos:5:2);
writeln ('la media dei neg e'' : ' ,media_neg:5:2);
readln;
readln;
end.