Mam problem! PASCAL!
: 13 lut 2014, 09:00
Otóż muszę zrobić sortowanie tablicy w Pascalu. Tematem jest sortowanie tablicy i wyznaczenie najmniejszego i największego elementu tablicy. Narazie spróbowałem utworzyć tablice i ją posortować lecz gdy próbuje to uruchomić w programie FREE PASCAL pojawia się fatal error i nie wiem czy zrobiłem to do brze czy źle. Proszę o pomoc.
program sortowanie;
var
liczba: array[1..5] of byte;
i, j, temp: Byte;
begin
for i:= 1 to 5 do begin
write('Podaj liczbe ' ,i,': ');
readln(liczba);
end;
for i:= 1 to 4 do
for j:= 5 downto i+1 do
if liczba[j-1] > liczba[j] then
begin
temp:= liczba[j];
liczba[j]:= liczba[j-1];
liczba[j-1]:= temp;
end;
for i:= 1 to 5 do
writeln(liczba);
readln;
end.
program sortowanie;
var
liczba: array[1..5] of byte;
i, j, temp: Byte;
begin
for i:= 1 to 5 do begin
write('Podaj liczbe ' ,i,': ');
readln(liczba);
end;
for i:= 1 to 4 do
for j:= 5 downto i+1 do
if liczba[j-1] > liczba[j] then
begin
temp:= liczba[j];
liczba[j]:= liczba[j-1];
liczba[j-1]:= temp;
end;
for i:= 1 to 5 do
writeln(liczba);
readln;
end.