Pascal! Mitrontotam ell:D?

uses crt -t akartál írni az elején nem? Mi a Hg? clrscr után pontosvessző 10. sorban mi az o? 0 akart lenni nem?

Én ennyit látok. A readln -nél szerintem kell egy üres zárójel readln();, de ez nem biztos, használhatod inkább a repeat until keypressed; -et is.

program jegyek;

uses crt;

var a, n, s, i:integer;

begin

clrscr;

writeln('Jegyeid sz ma: ');

readln(n);

s:=0;

for i:=1 to n do begin

writeln('Jegyeidet ird le:');

readln(a);

s:=s+a;

end;

writeln('A jegyed tlaga:',s/n:6:2);

repeat until keypressed;

end.

Szerintem így jó lesz.

ez teljesen jó!

seemmi hiba

nekem működik

xd kipróbáltam:)