Programozás elméletből kaptam házit ami ez: Kérjen be 10 számot és számolja meg a pozitívokat, valaki segítene?

program hazi;

var t:int64;

o,i:byte;

begin

for i:=1 to 10 do begin

readln(t);

if t>0 then o:=o+1;

end;

writeln('Összesen :',o,' db pozítiv szám van.');

end.

#8: Vannak oly dolgok melyek bántják az ember szemét. Mezei változónak i, j, k, n, v vagy legyen úgy nevesítve ami nem keverhető. Értéket az Inc eljárással növelünk és kimaradt az 'o' kezdőértékének megadása. Igaz a Pascal alapból 0-t ad, más nyelv, fordító nem. Mint már sokszor leírtam a Pascal nem érzékeny a kis és nagybetűkre, de akkor is ReadLn, WriteLn mert később más C típusú nyelvekben megbánja, hogy nem tanulta meg.

Nem lehet, szabad hanyagul megtanulni programozni mert ez később ráteszi a bélyegét a többi munkára is.