Поделитесь своими знаниями, ответьте на вопрос:
Решить.циклы(паскальв послед a1, a2, каждый член, начиная с четвёртого, равен последней цифре суммы трёх предыдущих. найти n-ый элемент последовательности.да хотелось бы еще чтобы каждая строчка была расписана что в ней происходит.
uses crt; {подключение внешнего модуля}
var {описание переменных}a: array [1..100] of integer; n,i: integer; beginwrite('n='); {вывод текста на экран}
read(n); {чтение текста}for i: =1 to 3 doa[i]: =random(51); {значение первых 3 элементов}for i: =4 to n doa[i]: =((a[i-1]+a[i-2]+a[i-3]) mod 10); {значение остальных элементов}writeln('последовательность: '); {вывод текста на экран}for i: =1 to n dowrite(a[i],' '); {вывод последовательности на экран}writeln; {перевод указателя на следующую строку}write('n-ный элемент: ',a[i]); {вывод текста и элемента на экран}end.