Tablice w Turbo Pascalu

joker39 · Post autor: **joker39** » 23 sty 2011, o 23:29

Witam
Kto mi pomoże napisać taki program...
wyświetl 11 liczb całkowitych,następnie oblicz sumę liczb parzystych i nie parzystych, a następnie wypisz która suma jest największa.
proszę o pomoc

wawek91 · Post autor: **wawek91** » 23 sty 2011, o 23:38

Ja pomogę, ale Ty zaczynasz.

joker39 · Post autor: **joker39** » 26 sty 2011, o 00:42

uses crt;
var i,par,npar,liczba:integer;
begin
clrscr;writeln;writeln;
par:=0;npar:=0;
randomize;
for i:=1 to 11 do
begin
liczba:=random(100);
write(liczba,' ');
if liczba mod 2=0 then par:=par+1 else npar:=npar+1;
end;
writeln;
writeln('ilosc parzystych=',par,' nieparzystych=',npar);
if par>npar then writeln('wiecej parzystych') else
writeln('wiecej nieparzystych');
readkey;
end.

-- 26 sty 2011, o 00:45 --

I nie wychodzi:(
nie wiem jak zrobić pętlę ,aby po naciśnięciu enter program powtórzył się

wawek91 · Post autor: **wawek91** » 26 sty 2011, o 09:55

Po pierwsze, Ty miałeś liczyć sume tych liczb a nie ich ilość, także to musisz zmienić. A do czego potrzebujesz tą pętle żeby program sie powtórzył? Jak już to zrób to jakąkolwiek pętlą i jeśli już koniecznie musi to być enter to wydaję mi się że najlepiej będzie użyć jego kodu ascii - 13. Aha i wrzucaj swoj kod następnym razem w znacznikach 'code'. Łatwiej się będzie czytać.