Witam, mam problem z sortowaniem bąbelkowym, mianowicie muszę posortować liczny z tablicy, początkowo program prosi nas o przypisanie wartości do tablicy.
PHP:
program hehetablica;
uses crt;
var
i,s,r :integer;
ile : integer;
p: char;
t: array [1..15] of integer;
begin
clrscr;
r:=1;
repeat
write('Ilu uczni˘w? ');
readln(ile);
for i:=1 to ile do begin
writeln('Podaj liczb© godzin dla ucznia ',i);
writeln;
readln(t[i]);
writeln;
end;
s:=0;
for i:=1 to ile do begin
s:=s+t[i];
writeln(t[i]);
end;
writeln;
Write('—rednia: ');
writeln(s/ile:2:0);
writeln('Powt˘rzy†? t/n ');
readln(p);
case p of
't': r:=1;
'n': r:=0;
else
writeln('Podae zĄ liter©');
r:=0;
readln;
end;
until(r=0);
readln
end.