// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ReadArrInteger(ReadInteger('n='));
var d:=ReadInteger('d=');
Writeln('Среднее ',a.Where(x->x>d).Average)
end.
<u><em>Тестовое решение:</em></u>
n= 8
6 3 -1 12 11 9 7 4
d= 8
Среднее 10.6666666666667
Const vt_max=10;
var
i:byte;
sum:integer;
vt:array[1..vt_max]of integer;
begin
sum:=0;
writeln('Начальный массив случайных чисел');
for i:=1 to vt_max do begin
vt[i]:=random(0,12);
write(vt[i]:6);
if (vt[i]<=3) then
sum:=sum+vt[i];
end;
writeln('');
writeln('Сумма элементов не больше 3 равна ', sum);
end.
Ошибка которая вызывает проблемы
Ответ:
Решение задачи - в прилагаемом файле.