Где допущена ошибка? 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.

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