Составить алгоритмы и программы дляСоставить алгоритмы и программы для заполнения : Массива А (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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.