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

[flashg]

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

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

[volvo]

Она у тебя не только не запускается, но даже не компилируется... Все дело в том, что вот это:

type a=array[1..180,1..180] of integer;

- описание типа, а что ты с ним делаешь?

a[b1,i]:=random;

, то есть работаешь как с описанием переменной...
Чтобы программа прошла компиляцию, делай так:

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;

Кстати, в строке

a[b1,i]:=random;

у тебя будет несовместимость типов: значение типа Real не может быть помещено в переменную типа Integer, так что сразу делай вот так:

a[b1,i]:=random(100);