Witam musze napisac program który generuje 10 liczb i zapisuje je do pliku "liczby.txt" wczytuje je i znajduje najmniejsza i zapisuje do "min.txt" wczytuje znowu i szuka najwiekszej i zapisuje do "max.txt" i wczytuje ostatni raz i wyciaga sednia i zapisuje do "ws.txt". Napisałem go lecz nie chce mi zapisywac danych do "min.txt max.txt i ws.txt" nie wiem co sie dzieje zobaczcie moze popelnilem jakis blad.
program plikczek;
uses crt;
VAR liczby,min,max,ws:TEXT;
tab:array[1..10] OF INTEGER;
uzyt,mi,ma,w,a,o,t,i:INTEGER;
BEGIN
clrscr;
randomize;
WriteLN('Podaj ilo† liczb do wygenerowania');
ReadLN(o);
ASSIGN(liczby,'C:\liczby.txt'); {wypisanie liczb w pliku txt}
rewrite(liczby);
Repeat
t:=t+1;
a:=RANDOM(10);
writeLN(liczby,a);
UNTIL t=o;
close(liczby);
ASSIGN(liczby,'C:\liczby.txt'); {znalezienie minimalnej}
reset(liczby);
mi:=10;
Repeat t:=t+1;
If a<mi then mi:=a
UNTIL t=o;
close(liczby);
ASSIGN(min,'C:\min.txt'); {wpisanie minimalnej do txt}
rewrite(min);
WriteLN(mi);
close(min);
ASSIGN(liczby,'C:\liczby.txt'); {znalezienie maxymalnej}
reset(liczby);
ma:=0;
Repeat t:=t+1;
If a>ma then ma:=a
UNTIL t=o;
close(liczby);
ASSIGN(max,'C:\max.txt'); {wpisanie maxymalnej do txt}
rewrite(max);
WriteLN(ma);
close(max);
ASSIGN(liczby,'C:\liczby.txt'); {znalezienie sredniej}
reset(liczby);
Repeat t:=t+1;
w:=w+a
UNTIL t=o;
close(liczby);
ASSIGN(ws,'C:\ws.txt'); {wpisanie sreniej w plik txt}
rewrite(ws);
WriteLN(w);
close(ws);
END.
