Даны два двумерных массива. Отыскать в первом массиве сумму тех частей,

Из условия задачки "Даны два двумерных массива" а у вас в коде используется только один...

Сделал с нуля, вот.

Program naconecto;vara:array [1..2,1..2] of integer;b:array [1..2,1..2] of integer;i,j,s,p:integer; BEGINrandomize;s:=0;p:=1;for i:=1 to 2 do  begin    for j:=1 to 2 do      begin        A[i,j]:=random(-100,100);        B[i,j]:=random(-100,100);        if (A[i,j] mod 3 = 0) and (A[i,j] mod 5 = 0) then          begin            s:=s+A[i,j];          end;        if B[i,j]lt;0 then          begin            p:=p*B[i,j];          end;      end;  end;writeln('npou3BegeHue=',p);writeln('cyMMa=',s);readln;END.

судя по твоей программы ты думаешь так, когда разговаривают двумерный массив, ты мыслишь что это нужно 2 отдельных массива сделать (выходит одномерных), а не 1 (выходит двумерный) и суёшь их каждый раздельно в один массив (двумерный), так появляется твой один двумерный, состоящий из двух одномерных. Задачка желает чтоб было два двумерных, к примеру A и B. Ну а чтоб не создавать им 2 элемента снутри, можно рандомные числа ввести, чтоб не мается вводить. И смотрю храмает в районе записей A[j] и A[i,j]. Разница в том, что в двумерном массиве в Pascal'e запись A[j] когда двумерный массив у тебя выведет все значения у номера столбца (что явл. j к примеру 1), это те что сверху вниз. A[i] выведет значения всех данных первой строки (если I = 1). Чтобы конкретно к яйчейке обратится, необходимо указать A[i,j] к примеру A[1,2] будет ячейка первой строчки отступом и второго столбца (отступом сверху). Представлять можно таблицой.