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 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ą.