Где допущена ошибка? program n_3;
var P, i:integer;
a: array[10..15] of integer;
begin
s:=0;
randomiz;
for i:=1 to 10 do; a[i]:=random(10);
for i:=10 to 20 do;s=s+a[i];
writeln('s=,s')
end.

1) переменная P не нужна

2) переменная s отсутствует в разделе описания переменных

3) индексы массива в разделе описания переменных не соотносятся с циклами

4) неправильно написан randomiz

5) ненужные точки с запятой после do

6) неправильный оператор присваивания у s

7) неверно оформленный вывод данных

Объяснение:

Примерный вариант программы с исправлениями:

program n_3;

var i,s:integer;

a: array[1..15] of integer;

begin

s:=0;

randomize;

for i:=1 to 15 do a[i]:=random(10);

for i:=1 to 15 do s:=s+a[i];

writeln('s=',s)

end.

Возможно, отсутствие вывода элементов массива, тоже можно считать ошибкой.