audrius159

Dėkoju už greitą pagalbą. dabar reikės išsinagrinėti jūsų pataisyta programą.

Čia programa program Bevardė49; var i, n, j : integer; mok, vid : text; sum, paz : real; begin Assign (mok, 'Mokiniai.txt'); Reset (mok); ReadLn (mok, n); for i := 1 to n do begin sum := 0; for j := 1 to 5 do begin Read (mok, paz); sum := sum + paz; end; sum := sum / 5; Assign (vid, 'Vidurkiai.txt'); Rewrite (vid); WriteLn (vid, i:6,' Vidurkis', sum:6:2); close (vid); end; close (mok); Readln; end. Duomenys tekstiniame faile: 3 7 8 9 7