Дан массив, состоящий из 10 элементов. Найти среднее арифметическое таких Ai , для...

Question

Дан массив, состоящий из 10 элементов. Найти среднее арифметическое таких Ai , для которых выполняется условие: при y

Answer 1

var

a:array [1..10] of integer;

i,x,y,k:integer; 

s:real;

begin

randomize; 

for i:=1 to 10 do begin

a[i]:=random(31)-10;

write (a[i],' ');

end;

writeln;

repeat

write ('Y = ');readln(y);

write ('X = ');readln(x);

until y

for i:=1 to 10 do

if (a[i]>y) and (a[i]

s:=s+a[i];

k:=k+1;

end;

if k=0 then writeln ('V massve net el y

s:=s/k;

writeln ('Sr. arifm: ',s:0:4);

end; 

readln;

end.