Ты объявила массив от 1 до 10, а в конце в цикле пытаешься обратиться к элементу с индексом 0!
(for i:=0 to m do
<span>begin for j:=0 to n do)
Ну и куча мелких недочетов еще тут есть
const
n=5;
m=6;
var
a:array[1..n,1..m] of integer;
i,j: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Измененный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]=0 then a[i,j]:=i+j;
write(a[i,j]:4);
end;
writeln;
end;
<span>end.</span></span>
<span>Типографические символоы </span>
ошибка в том что натуральный логарифм (-1) не существует
program summa;
uses crt;
var n,i:integer; s:real;
p1,p2:integer;
begin clrscr;
writeln ('vvedite n');
readln (n);
s:=0;
p1:=-1;
p2:=2;
for i:=1 to n do
begin
s:=s+p1/p2;
p1:=-p1;
p2:=p2*2;
end;
writeln ('s=', s);
readln;
end.
Var a: integer;
begin
write ('Введите двузначное число: ');
readln (a);
writeln('Сумма цифр числа равна: ',a div 10 + a mod 10)
end.