Program PR8;
Uses Crt;
Const n=15;
Var
D:array [1..n] of integer;
b,i:integer;
begin
  TextAttr:=$4B; // зачем это вообще не знаю...
  ClrScr;  
  randomize; 
  for i:=1 to n do
  begin
    D[i]:=random(20)-10;
    write(D[i]:4);
  end;
  writeln;
  for i:=1 to n do
  begin
    IF D[i]>5 then D[i]:=D[i] div 3 // так как у нас массив интежеров.
      else D[i]:=D[i]+4;
   writeln (D[i]:4:2);
  end;
  writeln;
  readln;
end.

Лаба 12
Задание
Дан массив O(15,3) Найти произведение отрицательных элементов массива и подсчитать их количество.

Решение:

Program PR12;
Uses Crt;
Const n=5;m=3; //тут указывается, что матрица у тебя 5 на 3 а не 15 на 3.
Var
  O:array [1..n, 1..m] of integer;
  i,j,p,k:integer;
begin
  TextAttr:=$4B;ClrScr;
  randomize;
  for i:=1 to n do
  begin        // здесь не было for по j
    for j:=1 to m do
    begin
      O[i,j]:=random(20)-10;
      write(O[i,j]:4);
    end;
    writeln;
  end;

p:=1;
k:=0;
for i:=1 to n do
for j:=1 to m do
begin
IF O[i,j]<0 then p:=p*O[i,j];
K:=K+1; // это можно заменить на inc(K);
end;

writeln ('p=',p:5);
writeln ('k=',k);
readln;
end.