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

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

Ангелина Дуплова 2019-08-09 01:58:37

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

Стерникова Люба 2019-08-09 02:07:22

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

Злата Гикушнова 2019-08-09 02:15:33

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

Иван Смуриженков 2019-08-09 02:25:17

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

Семён Депцов 2019-08-09 02:31:11

Вроде оно

Эвелина Дирявко 2019-08-09 02:32:12

Спасибо

Тема 2019-08-09 02:36:12

Ой там ошибка

Таисия 2019-08-09 02:44:33

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

Людмила Грамоткина 2019-08-09 02:54:17

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

Миша Штромберг 2019-08-09 02:57:15

Спасибо

О проекте

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

Добро пожаловать!