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.

Program Neprogram;
type K=array [0..10,0..10] of integer;
Procedure zapolnenie(var x:K);
   Var m,n,gran,znach,i:integer;
       Begin
          randomize;
          gran:=0;
             for i:=1 to 10 do
               begin
               znach:=trunc((10-1)*random+1);
               gran:=gran+1;
                 for m:=1+gran to 10-gran do
                     for n:=1+gran to 10-gran do
                          x[m,n]:=znach;
               end;
              end;
Procedure povorot(var x:K);        //процедура поворота
   Var m,n,gran,i,buff,a:integer;
     Begin
       x[1,1]:=A;                         //Это чтоб проверить 
       x[2,1]:=A;                                 поворачивает или нет.
       x[3,1]:=A;
       x[4,1]:=A;
       x[5,1]:=A;
       x[6,1]:=A;
       x[7,1]:=A;
       x[8,1]:=A;
       x[9,1]:=A;
       x[10,1]:=A;
       gran:=0;                          //Изначально грань = 0
           for i:=1 to 5 do            //выполняем для x/2 слоев,
             begin                             в нашем случае для 5
                  buff:=x[n+gran,m+gran]; //сохраняем верхнее левое значение
                 //считаем левую границу периферии
                 n:=1+gran;
                     for m:=1+gran to 9-gran do
                         x[m,n]:=x[m+1,n];
//нижнюю
                  m:=10-gran;
                     for n:=1+gran to 9-gran do
                         x[m,n]:=x[m,n+1];
 //правую
                  n:=10-gran;
                     for m:=10-gran downto 2+gran do
                         x[m,n]:=x[m-1,n];
 //верхнюю
                  m:=1+gran;
                     for n:=10-gran downto 3+gran do
                         x[m,n]:=x[m,n-1];
                  x[n+gran+1,m+gran]:=buff;//возвращаем утерянное значение
                  gran:=gran+1; //увеличиваем грань
             end;
      end;
Var x:K;
    m,n:integer;

Begin
zapolnenie(x);
for m:=1 to 10 do
 begin
  writeln(' ');
   for n:=1 to 10 do
       write(x[m,n],' ');
  end;
  writeln(' ');
  povorot(x);
  writeln(' ');
  for m:=1 to 10 do
 begin
  writeln(' ');
   for n:=1 to 10 do
       write(x[m,n],' ');
  end;
  writeln(' ');
end.

buff:=x[n+gran,m+gran];

»22098432 - выход за границы диапозона изменения  индекса 0..10

#include <stdio.h>
#include <stdlib.h>
int main()
{
char a[255];
int b;
printf("vvedite deistvie: \n");
gets(a);
b=atoi(a);
printf("Ravno: %d",b);
}