Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.