Составить алгоритмы и программы дляСоставить алгоритмы и программы для заполнения :...

Question

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

Comments

паскаль?

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<br>ans:=ans+1;
sum:=sum+a[i];
end;
writeln(sum/ans);
for i:=1 to 30 do
write(a[i],' ');
end.

Comments

А, секундочку, распечатать массив забыл.

---

Вроде все.

---

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

---

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

---

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

---

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

---

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