( нужно сделать 1,2,3) ​

Объяснение:

const

 n = 10;

 ar:array[1..n] of integer = (-2, -1, 2, 3, 4, 5, -5, -6, 2, 5);

var

 i:integer;

 is_first_pol:boolean;

 raz_pol:integer;

begin

 

 raz_pol:=0;

 is_first_pol:=true; // флаг того, что найденное положительное число - первое

 

 for i:=1 to n do begin

   

   if (ar[i] > 0) then

     

     if (is_first_pol) then begin

       // если найденное полодительное число - первое, то

       raz_pol:=ar[i]; // в нашу разницу заносим это число

       is_first_pol:=false; // меняем флаг

     end

     else raz_pol:=raz_pol - ar[i]; // иначе вычисляем разницу

 

 end;

 

 writeln(raz_pol);

end.

На сегодняшний день существуют сайты, проводящие тестирование, показывающие теорию при неправильном решении задач.
Прямая связь - показ веб-страниц с заданиями, решениями, теорией. Обратная связь - получение данных о правильности решения задач, регулировка количества задач в зависимости от правильности выполнения.

Преимущества:
- доступ к контенту от лучших учителей 
- доступ к урокам в удобное время
- возможность "геймификации" - внедрения игрового процесса обучения
- моментальная проверка задач
- возможность автоматической генерации вариантов задания, делающая задания более разнообразными

Недостатки:
- отсутствие реакции на необычные ситуации
- отсутствие контроля процесса выполнения
- ограниченность круга задач с автоматической проверкой (как правило, тестами)
- недостаток "креативных" задач