AKTUALNIE - Wiejska Kuchnia Mojej Mamy

Temat: wyliczanie średniej ocen
...polski'; przedmioty[2]:='I jezyk obcy'; przedmioty[3]:='II jezyk obcy'; przedmioty[4]:='historia'; przedmioty[5]:='matematyka'; przedmioty[6]:='fizyka'; przedmioty[7]:='chemia'; przedmioty[8]:='biologia'; przedmioty[9]:='geografia'; przedmioty[10]:='informatyka'; przedmioty[11]:='wychowanie fizyczne'; przedmioty[12]:='przysposobienie obronne'; przedmioty[13]:='wiedza o spoleczenstwie'; writeln(' Program obliczajacy srednia ocen szkolnych'); writeln; writeln('Wpisz oceny z poszczegolnych przedmiotow'); writeln('UWAGA! Gdy nie uczysz sie jakiegos przedmiotu wpisz "0"'); writeln('Wykaz ocen i srednia znajsziesz w pliku RAPORT na dysku C'); for i:=1 to 13 do begin writeln; write(przedmioty[i],': '); read(k); if k=0 then j:=j+1; if (k<0) or (k>6) then writeln('Wpisales niewlasciwa liczbe! Powtorz wpisywanie...
Źródło: forum.ks-ekspert.pl/index.php?showtopic=29745