Составить алгоритмы и программы длясоставить алгоритмы и программы для заполнения : массива а (30) по формуле a(i) = 10*i + 2*i2. найти среднее арифметическое элементов < 50. распечатать массив в строку. составьте программу

Если я правильно понял условие, то код выглядит так. uses crt; var i,ans,sum: integer; a: array[1..30] of integer; begin sum: =0; ans: =0; for i: =1 to 30 do begin a[i]: =10*i+2*sqr(i); if a[i]< 50 then ans: =ans+1; sum: =sum+a[i]; end; writeln(sum/ans); for i: =1 to 30 do write(a[i],' '); end.

1- сумма двух чисел, 8 - сумма одного из слагаемых первого числа, а также нового, третьего числа. так как 1 - сумма двух натуральных чисел, легко сделать вывод, что это числа 1 и 0. значит 8 - сумма чисел либо 8 и 0, либо 7 и 1. комбинируем числа из 0, 7 и 1, так как это число точно будет меньше, чем состоящее из 1, 0 и 8. пусть 1 и 0 - первое и второе числа, ошибка. 8 - сумма 2-го и 3-го чисел. а 0 не может стоять в разряде сотен. значит комбинируем из 0, 1 и 8: 1 - первое, 0 - второе и 8 - третье; 1+0=1, 0+8=0, вместе 81. ответ: 108.

Переменные: общий вид: var < имя переменной> : < тип переменной> ; 1. в имени переменной не может быть пробелов 2. имя переменной не может начинаться с цифры 3. нижнее подчеркивание разрешено константы: общий вид: const < имя константы> = < значение> ; для константы действуют те же правила, что и на переменные. программа: общий вид: < процедуры> < функции> < константы> < переменные> begin < тело программы> end. этот порядок нарушать нельзя, но некоторые моменты можно пропустить