Помагите устранить ошибку
Добавлено: 16 дек 2009, 17:16
Вот ЗАДАЧА( условие:Дан одномерный массив цеых чисел. Найти кол-во различных элементов данного массива (отсортировать).)
Я почти её зделал, но она выдаёт: "выход за границы диапазона изменения индекса 1..5 (a7.pas, строка 30)",а иногда строка 20
что такое?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
это не берите во внимание, это "обрезки" программы
Код: Выделить всё
program p7;
uses crt;
const n=5;
type aa=array[1..n] of integer;
var a:aa;
i,j,kol:integer;
x:integer;
begin
clrscr;
kol:=0;
writeln('Введите массив');
for i:=1 to n do readln(a[i]);
writeln('исходный массив);
for i:=1 to n do write(a[i],' ');
writeln;
writeln('otcoptipoBaHHbIi` MaCCiB');
for j:=n-1 downto 1 do begin
for i:=1 to j do
if a[i]>a[i+1] then begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x;
end;
{for i:=1 to n do
write(a[i],' ');}
end;
for i:=1 to n do write(a[i],' ');
for i:=1 to n do
if a[i]<>a[i+1] then kol:=kol+1
else i:=i+1;
writeln('kol= ',kol);
readln;
end.что такое?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Код: Выделить всё
{for i:=1 to n do
write(a[i],' ');}это не берите во внимание, это "обрезки" программы