Hogy kell megírni pascalban?

Szia.

Akkor lássuk a C részt (ami valóban E) és valaki megmodja hogy mi nem jó benne.

Üdv.

Szia.

A feladat alapján "Gyűjtsd ki egy külön tömbbe azokat az elemeket, amelyek nagyobbak, mint 15!"

Mi a hiba a kódodban (azon kivűl hogy nem azt csinálod vele mint amit a feladatban kellene)?

Ha felveszed a db válzotót akkor azt valahol növelni kellene nem ? Ezt a növelest kell feltételhez kötni.

Writeln('negyedik feladat');

db:=0

for i 1 to 20 do begin

if szamok[i]>15 then db:=db+1;

end ;

Write('A számok között' ,db, 'szám volt, ami nagyobb, mint 15');

De visszatérve a feladatra csak ki kell egésziteni egy értékadással (plusz Begin End párossal) ime :

Writeln('negyedik feladat');

db:=0

for i 1 to 20 do begin

if szamok[i]>15 then begin

db:=db+1;

Tomb2[db]:=szamok[i];

end ; { if- Then}

end ; { For }

Write('A számok között' ,db, 'szám volt, ami nagyobb, mint 15');

Üdv.