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

Question

Информатика

Галика

2 октября, 05:32

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

+1

Ответы (1)

Знаете ответ?

Полюся · Answer 1

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.