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

dnmsmd dnmsmd    3   21.05.2019 19:50    0

Ответы
anyutarak03 anyutarak03  16.06.2020 17:51

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика