Pascalio uzdavinys

Sveiki, reikia pagalbos. Uzduotis tokia: isrinkti pasikartojancius masyvo elementus ir palikti tik vienos reiksmes, t.y. kad elementai nesiskartotu. Atsakyma gaunu, bet ne toki kokio rekia. Kokia galetu buti priezastis?

program Bevardë4;
var
   a:array[1..100] of integer;
   i,j,sk,k:integer;
   f:text;
begin
 assign(f,'C:\fps\naik\skaiciai.txt');
 reset(f);
   readln(f,sk);
   for i:= 1 to sk do
   read(f,a[i]);

   for i:= 1 to sk do
       for j:= 2 to sk do
              if a[i]=a[j] then
                   begin
                       for k:=j to sk-1 do
                       a[k]:=a[k+1];
                       sk:=sk-1;
                   end;
 close(f);


 for i:= 1 to sk
  do
 write(a[i], ' ');
Readln;
end.

Duomenu failas:

13
21 23 21 5 4 6 8 5 23 1 2 33 21

Klaida antrame cikle. Turi būti for j:= i+1 to n do.

Sveiki, reikia pagalbos. Uzduotis tokia: isrinkti pasikartojancius masyvo elementus ir palikti tik vienos reiksmes, t.y. kad elementai nesiskartotu. Atsakyma gaunu, bet ne toki kokio rekia. Kokia galetu buti priezastis?

 

program Bevardë4;
var
   a:array[1..100] of integer;
   i,j,sk,k:integer;
   f:text;
begin
 assign(f,'C:\fps\naik\skaiciai.txt');
 reset(f);
   readln(f,sk);
   for i:= 1 to sk do
   read(f,a[i]);

   for i:= 1 to sk do
       for j:= 2 to sk do
  			if a[i]=a[j] then
                   begin
                       for k:=j to sk-1 do
                       a[k]:=a[k+1];
                       sk:=sk-1;
                   end;
 close(f);


 for i:= 1 to sk
  do
 write(a[i], ' ');
Readln;
end.

 

Duomenu failas:

13
21 23 21 5 4 6 8 5 23 1 2 33 21

Pataisymas, manau pagalvojus turėjai ir pats suprasti

program Bevard4;
var
   a:array[1..100] of integer;
   i,j,sk,k:integer;
   f:text;
begin
 assign(f,'test.txt');
 reset(f);
   readln(f,sk);
   for i:= 1 to sk do
   read(f,a[i]);

   for i:= 1 to sk do
       for j:=i+1 to sk-1 do
      		if a[i]=a[j] then
                   begin
                       for k:=j to sk-1 do
                       a[k]:=a[k+1];
                       sk:=sk-1;
                   end;
 close(f);


 for i:= 1 to sk
  do
 write(a[i], ' ');
Readln;
end.

Klaida buvo čia

for j:=2 to sk do

Aciu :)