Даны два двумерных массива. Найти в первом массиве сумму тех элементов, которые кратны 3 и 5 и найти во втором массиве найти произведение отрицательных элементов.
program z1;
var a:array [1..2,1..2] of integer;
i,j,s,p:integer;
begin
for i:=1 to 2 do
for j:=1 to 2 do
readln (a[i,j]);
s:=0;
for i:=1 to 2 do
for j:=1 to 2 do
If (a[i,j] mod 3=0) and (a[i,j] mod 5=0) then
begin
s:= s+a[i,j];
end;
writeln ('сумма элементов, которые кратны 3 и 5=',s);
p:=1;
for j:=1 to 2 do
begin
if a[j] < 0 then
p:=p* a[j];
end;
writeln('Произведение отрицательных чисел=',p);
end.
Что не так с программой? Пишет вот такую ошибку: Program1.pas(19) : Нельзя преобразовать тип array [1..2] of integer к integer