Question

        Составить алгоритмы и программы дляСоставить  алгоритмы  и  программы  для   заполнения :  Массива  А (30)   по формуле  A(i) = 10*I + 2*i2. 
Найти среднее арифметическое  элементов < 50.    Распечатать массив  в строку.  
СОСТАВЬТЕ ПРОГРАММУ ПЛИЗ

Answer 1

Если я правильно понял условие, то код выглядит так.
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.

Answer 2

Уверены что строки " ans+=1;
sum+=a[i];" записаны правильно?

Answer 3

У меня в paskal abc работает. Но, наверное, вы правы, на всякий случай переделаю.

Answer 4

А что значит +=?

Answer 5

a+=b это тоже самое, что a:=a+b, также с -, /, *, и может быть MOD и DIV. Во многих языках такое присутствует. Но на паскале не все компиляторы поддерживают вроде.

Answer 6

Спасибо, понял