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)
   then begin s:=s+a[i]; inc(t); end;
 writeln('Average: ',s/t:0:2);
 readln;
end.

Answer 2

Спасибо

Answer 3

Ой там ошибка

Answer 4

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.

Answer 5

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

Answer 6

Спасибо