ан двумерный массив (матрица) А размерностью..., не запускается программка - где ошибка Опции

[flashg]

Вот дано
Дан двумерный массив (матрица) А размерностью 180 на 180 элементов типа integer с произвольными значениями. Сформировать из него массив В(180,180), путем замены каждого пятого элемента матрицы суммой четырех предыдущих элементов. Вывести на экран 2 фрагмента размером 10 на 10 исходной и полученной матриц, а также элементы А(5,5) и В(5,5).

а вот прога которая не запускается - в чём дело где ошибка :molitva:

[Guest]

всё равно выдаёт ошибку но уже другую
==============

Код

uses crt;
type
 { это - описание типов }
 type_a=array[1..180,1..180] of integer;
 type_b=array[1..180,1..180] of integer;
var
 i,b1,p:byte;
 z:integer;
 a: type_a; { а вот это - описание переменных }
 b: type_b;  { <--- ERROR 96 }

begin
randomize;
for i:=1 to 180 do
 for b1:=1 to 180 do
  begin
   a[b1,i]:=random({maxint}100);
   b[b1,i]:=0;
  end;

b1:=0;
repeat
 inc(b1);
 z:=1;
 for i:=1 to 180 do
  if (i mod 5 <> 0) then b[b1,i]:=a[b1,i]
  else
   begin
    for p:=z to z+3 do
     b[b1,i]:=b[b1,i]+a[b1,p];
    z:=z+5;
   end;
until b1=180;

writeln('A[5,5] = ',a[5,5],'        B[5,5]=',b[5,5]);
writeln;
writeln('A:                      B:');
for i:=10 to 19 do
 begin
  for b1:=21 to 30 do
   write(a[i,b1],' ');
  write('                 ');
  for b1:=21 to 30 do
   write(b[i,b1],' ');
  writeln;
 end;
end.

Тегами CОDE пользуйся !!!

Сообщение отредактировано: volvo - 4.08.2005 17:31