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

August 2022 1 3 Report

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

Answers & Comments

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

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

nikolac Вроде все.

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

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

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

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

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

Answers & Comments

sostavit algoritmy i programmy dlya zapolneniya massiva a 30 po for

pomogite pozhalujstav treugolnike abc acbc5 kornej iz 13 ab20 najdite tga

plan po rasskazu sobachemu serdcu

tochka dvizhetsya pryamolinejno po zakonu xtkoren kvadratnyj iz t pokazhite chto

reshite srochno plizspasibo zaranee

7 1 reshite pliz

рекомендуемые вопросы

Helpful Links

Helpful Social