// 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
1) андроид 3 клавиатура2) кнопка 4) пользователь 5 ) ярлык 6) графический интерфейс. удачи тебе
Начало: program p1;
uses crt;
var a,b,c,d,e,f,g,p:integer;
begin
Ввод 7 чисел: read( a,b,c,d,e,f,g);
Происходит умнож: p:=a*b*c*d*e*f*g;
Вывод: write(p);
Конец: end.
Если а>=х то хватит.
а если не хватит, то нужно добавить х-а рублей