ciklo rezultatų išvedimas i tekstinį failą

Č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 8

5 7 9 5 7

6 8 7 9 7

Rezultatų išvedimas į tekstinį failą:

3 Vidurkis 7.40

Kaip matote rezultatų tekstiniame faile truksta 1 ir 2 ciklo atsakymų, užrašomas tik paskutinis ciklo atsakymas.

Reiktų ,jog padėtumėte ,kad išvestų visus ciklo rezultatus į tekstinį failą.

Nevietoje panaudota assign,rewrite,close pirmi naudojami failui paruošti įrašymui, jei antrą kartą panaudosi sena informacija bus pašalinta, close naudojama uždaryti jei uždarai nebeįrašysi, todėl cikle nenaudojama.

program Bevardė49;
var i, n, j : integer;
mok, vid : text;
sum, paz : real;
begin
Assign (mok, 'Mokiniai.txt');
Reset (mok);
ReadLn (mok, n);

Assign(vid, 'Vidurkiai.txt');
Rewrite (vid);

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;
   	WriteLn (vid, i:6,' Vidurkis', sum:6:2);
end;
close (mok);
close (vid);
Readln;
end.

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