Вычислить среднее арифметическое значение тех элементов одновременного массива, которые попадают в интервал от -2 до 10. Размерность массива произвольная. ИЛИ Дан массив, содержащий 12 элементов и заполненный по формуле A=(i-4)...

Question

Вычислить среднее арифметическое значение тех элементов одновременного массива, которые попадают в интервал от -2 до 10. Размерность массива произвольная. ИЛИ Дан массив, содержащий 12 элементов и заполненный по формуле A=(i-4)...

Вычислить среднее арифметическое значение тех элементов одновременного массива, которые попадают в интервал от -2 до 10. Размерность массива произвольная. ИЛИ Дан массив, содержащий 12 элементов и заполненный по формуле A=(i-4)/(3*i). Найти количество элементов в этом массиве больших 0, но меньших 0,2. (решение писать как в турбо паскале)

Гость

Ответ(ы) на вопрос:

Accepted Answer

const n=10; var a:array [1..n] of integer; i,s,k:integer; sr:real; begin randomize; s:=0; k:=0; for i:=1 to n do begin a[i]:=random(31)-10; write (a[i],' '); if (a[i]>-2) and (a[i]<10) then begin k:=k+1; s:=s+a[i]; end; end; writeln; sr:=s/k; writeln (sr:0:2); readln; end.