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

1

Ответы и объяснения

Лучший Ответ!
2013-12-07T21:39:43+04:00
Если я правильно понял условие, то код выглядит так.
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.
Уверены что строки " ans+=1;
sum+=a[i];" записаны правильно?
У меня в paskal abc работает. Но, наверное, вы правы, на всякий случай переделаю.
А что значит +=?
a+=b это тоже самое, что a:=a+b, также с -, /, *, и может быть MOD и DIV. Во многих языках такое присутствует. Но на паскале не все компиляторы поддерживают вроде.
Спасибо, понял