Арифметическое переполнение в двухмерном массиве

@MoonWalker · Регистрация: 02.06.2014

Студворк — интернет-сервис помощи студентам

Как исправить ошибку 215: Арифметическое переполнение. Помогите, пожалуйста

Pascal

program z1;
 var b:array [-64..64,-64..64] of integer;
 s,i,j:integer;
Begin
  s:=0;
  randomize;
  for i:=1 to 6 do
     for j:=1 to 6 do
        b[i,j]:=random((64+64)+1)-64;
 
  for i:=1 to 6 do
      begin
          for j:=1 to 6 do
            write(b[i,j],' ');
            writeln
      end;
 
readln;
end.

@Puporev · 02.06.2014, 18:17

Pascal

program z1;
 var b:array [1..6,1..6] of integer;
 s,i,j:integer;
Begin
  s:=0;
  randomize;
  for i:=1 to 6 do
   begin
    for j:=1 to 6 do
     begin
      b[i,j]:=-64+random(129);
      write(b[i,j]:4);
     end;
    writeln;
   end;
readln;
end.

Опции темы