Pascalio uždavinys

Reikia sukurti programa. Uždavinys " Kiekvienas mokinys gauna po pažymi, ir reikia apskaičiuoti vidrki klasės". Ir reikia jį išspresti su for ciklu. Mokytojas normaliai nepaaiškino kaip daryt, sako bandykit. Ir neisivaizduoju, kodėl čia for ciklas naudojamas, ir kaip spresti. Gal kas padėt galėtumet?

program shit;
var x, y, i, z: integer;
begin
z := 0;
Readln(x); //nuskaito kiek mokiniu.
for i := 1 to x do
begin
readln(y);
z:=z+y;
end;
Writeln('Vidurkis: ', z / x : 0 : 2);
Readln;
end.

Prašom : )

Tiesiog su for ciklu nusiskaitai ar vedi pažymius kiek yra klasėje mokinių, kadangi kiekvienas gauna po pažymį. Pačiame cikle kaupi viską į sumą ir galiausiai sukaupęs viską suskaičiuoji vidurkį.

Pagal mane, turėtų būtų pažymiam nuskaityti ciklas, ir jų susumavimui.

Kad ir duomenų įvedimui:

write('Kiek įvesite duomenų: '); readln(n);

for i:=1 to n do
begin
  write(i,' mokinio pažymys: '); readln(a[i]);
end;

program pazymis; 
var mas: array[0..5] of integer;
   pazymiuSuma, pazymiuVidurkis, i, n: integer;
begin
 WriteLn("Kiek pazymiu");
 for i:=1 to n do
 ReadLn(mas[i]);
 for i:=1 to n do pazymiuSuma = pazymiuSuma +mas[i];
 pazymiuVidurkis = pazymiuSuma / n;
 WriteLn(pazymiuVidurkis);
 ReadLn;
end.

Kažkas tokio, nelabai pamenu pascalio sintaksę

program mokiniu paz vid;
var i, n, p :integer;
   psum, pvid:real;
begin
 WriteLn('Iveskite mokiniu sk.'); Read(n);
 for i:= 1 to n do
 begin
       WriteLn('iveskite ', i , ' vaiko paz'); Read(p);
       psum := psum + p;
 end;
 pvid := psum/n;
 Writeln('vidutinis mokiniu paz ', pvid:6:2);
 Readln;
 Readln;
end.