(pascal) Ошибка при выполнении программы

[IvaN9900]

Здравствуйте! Маленькая предистория: решил я перед сессией подучить все, что было пройдено по паскалю за 1семестр, т.к. на пары не ходил, а если и ходил, то ничего не делал.
Вобщем решил написать программку, считающую кол-во элементов одномерного массива, вот:

Program massiv;
Uses crt;
var
i, j :integer;
mas: array [1..random(55)] of integer;
Begin
clrscr;
Writeln;
For i:=1 to random(55) do
begin
Randomize;
mas[i]:= Random (20);
Write (mas[i] :4)
end;
j:=i;
if j>i then
begin
writeln('Ошибка!');
end
else
begin
Writeln('кол-во эл-тов=',j);
End;
end.

а она иногда выдает ошибку "Ошибка: N- выход за границы диапазона изменения индекса a..b" ,при этом массив заполняется, а количество элементов не выводится. Я так и не смог понять в чем тут дело, поможете? Заодно подскажите, как можно уменьшить количество кода, а то по-моему немного громоздко получилось..

[[CODER]]

Program massiv;
Uses crt;
var
i, j :integer;
mas: array [1..55] of integer;
Begin
clrscr;
Writeln;
For i:=1 to 55 do
begin
Randomize;
mas[i]:= Random (20);
Write (mas[i] :4)
end;
j:=i;
if j>i then
begin
writeln('Ошибка!');
end
else
begin
Writeln('кол-во эл-тов=',j);
End;
end.

и вдумайтесь в это)

...
j:=i;
if j>i then
...

нет смысла проверять условие j>i

[IvaN9900]

Facepalm. Действительно глупость написал, мозг плывет.. а по поводу ошибки есь какие-нибудь соображения?

[VIK_aka_TOR]

IvaN9900... ошибка у вас возникает по следующей причине....
вы объявляете массив mas: array [1..random(55)] of integer; тобишь от 1 до (от 0 до 54) точно не известно.... а затем в цикле обращаетесь от 1 до (от 0 до 54)...
тоесть если в первом случае сгенирирует меньше чем во втором... у вас и выскочит ошибка... задайте эти значения числами... либо через константу...

[veniside]

mas: array [1..random(55)] of integer;

это АБВГД паскаль такую жесть компилит?

[VIK_aka_TOR]

Сообщение от veniside

mas: array [1..random(55)] of integer;

это АБВГД паскаль такую жесть компилит?

сам удивился... но реально компилит)))

[IvaN9900]

Сообщение от veniside

mas: array [1..random(55)] of integer;

это АБВГД паскаль такую жесть компилит?

а что именно тут "жесть"?

[Serge_Bliznykov]

Какой паскаль такое КОМПИЛИТ?!!

TurboPascal абсолютно резонно отказывается:



а PascalABC такое действительно кушает... с ума сойти!!!! o_O!!!
я в шоке!!!


И мой Вам совет.
Выкиньте этот Pascal ABC с его закидонами напрочь!!!
там нет элементарнейших вещей, которые имеются в TurboPascal (и в любом другом нормально Паскале)!
Зато полно бреда!

для бредовых компиляторов и код бредовый!

var
  mas: array [1..random(55)] of integer;
  i : integer;
begin
  try
    i := 1;
    while i<=55 do begin
        mas[i] := 1;
        inc(i)
    end;
  except
    dec(i)
  end;
  WriteLn('Количество элементов в массиве: ',i);
  Readln;
end.

[IvaN9900]

Сообщение от Serge_Bliznykov

Какой паскаль такое КОМПИЛИТ?!!

TurboPascal абсолютно резонно отказывается:



а PascalABC такое действительно кушает... с ума сойти!!!! o_O!!!
я в шоке!!!


И мой Вам совет.
Выкиньте этот Pascal ABC с его закидонами напрочь!!!
там нет элементарнейших вещей, которые имеются в TurboPascal (и в любом другом нормально Паскале)!
Зато полно бреда!

для бредовых компиляторов и код бредовый!

var
  mas: array [1..random(55)] of integer;
  i : integer;
begin
  try
    i := 1;
    while i<=55 do begin
        mas[i] := 1;
        inc(i)
    end;
  except
    dec(i)
  end;
  WriteLn('Количество элементов в массиве: ',i);
  Readln;
end.

а нас в колледже учат по ABC, и только по ABC..
Спасибо за совет, попробую пописАть в турбо..