Вычислить среднее арифметическое тех элементов массива, значения которых попадают в...

Question

Вычислить среднее арифметическое тех элементов массива, значения которых попадают в интервал от -2 до 10. Размерность массива произвольная.

Answer 1

Var
  i,s,t,n:integer;
  a:array[1..100] of integer;
begin
 write('Write size array: ');readln(n);
 for i:=1 to n do
  begin
   a[i]:=Random(150)-50;
   write(a[i]:4);
  end;
 s:=0;
 t:=0;
 for i:=1 to n do
  if (a[i]>=-2) and (a[i]<=10)<br>   then begin s:=s+a[i]; inc(t); end;
 writeln('Average: ',s/t:0:2);
 readln;
end.

Comments

Поищи здесь много таких задач

---

Я вчера как минимум 2 таких делал

---

Не нашёл если честно

---

var a:array [1..10] of integer;
i,n,s:integer;
begin
s:=0;
for i:=1 to 10 do
a[i]:=random(101);
for i:=1 to 10 do
write ('a[',i,']=',a[i],' ');
writeln;
for i:=1 to 10 do
if (a[i] mod 2=0) then begin
sum:=sum+a[i];
write ('a[',i,']=',a[i],' '); end;
writeln;
write (sum);
end.

---

Вроде оно

---

Спасибо

---

Ой там ошибка

---

var a:array [1..10] of integer;
i,n,s:integer;
begin
s:=0;
for i:=1 to 10 do
a[i]:=random(101);
for i:=1 to 10 do
write ('a[',i,']=',a[i],' ');
writeln;
for i:=1 to 10 do
if (a[i] mod 2=0) then begin
s:=s+a[i];
write ('a[',i,']=',a[i],' '); end;
writeln;
write (s);
end.

---

Вот теперь точно оно

---

Спасибо