Здравствуйте, Петров Дмитрий Александрович!

Программа в приложении.
Если будут вопросы, обращайтесь в мини-форум.
Удачи!

Приложение:
const
m=15;
var t:array[1..m]of integer;
a,b:integer;
begin
{создаем массив}
for b:=1 to m do
begin
t[b]:=random(50)-25;
write(t[b]:4);
end;
writeln;
{вводим А}
write('Enter A:');
readln(a);
{выводим результат}
for b:=1 to m do
begin
if t[b]>0 then inc(t[b],a);
write(t[b]:4);
end;
readln;
end.

Здравствуйте, Петров Дмитрий Александрович!
Попытался написать с комментариями.

Приложение:
program ura;
const max=100;
var t:array[1..max] of real;{задаём массив переменных типа real с максимальным количеством элементов 100}
a:real;
i,n:integer;
begin
writeln('Vvedite chislo elementov massiva:');{просто выводится строка на экран}
write('n=');{ещё одна строка выводится на экран}
readln(n); {введённое значение присваевается переменной n}
for i:=1 to n do{цикл в котором каждому элементу массива вам предлагается присвоить значение}
begin
write('t[',i,']=');
readln(t[i]);
end;
writeln('Vvedite chislo a:');{вам предлагается ввести число а}
readln(a);{введённое значение присваивается переменной а}
writeln('REZULTAT:');{выводится строка на экран после которой в цикле все элементы массива увеличиваются на число а и выводятся на экран}
for i:=1 to n do
begin
t[i]:=t[i]+a;
writeln('t[',i,']=',t[i]:3:3);
end;
readln;{функция readln без параметров нужна, чтобы после вывода получившихся чисел на экран, у вас была возможность посмотреть на результат. Без этой функции вы сразу будете переходить в режим редактирования кода. как-то так.}
end.

Здравствуйте, Петров Дмитрий Александрович!

program vopros_159184;
const
Nmax=10;
var
T:array[1..Nmax]Of integer;
i,n,a:integer;
begin
writeln('введи число а');
readln(a);
repeat
writeln('введите кол-во элементов <= ',Nmax);
readln(n);
until (n>0)and(n<=Nmax);
writeln('введи данные');
for i:=1 to n do
readln(t[i]);
for i:=1 to n do
if t[i]>0 then T[i]:=T[i]+a;
for i:=1 to n do
writeln(t[i]);
end.