Помогите с информатикой: из чисел A B C D d выбрать такие которые больше среднего ар?
Помогите с информатикой:
из чисел A B C D d выбрать такие которые больше среднего ар??фметического этих чисел.
Прошу напишите на языке Паскаль. Заранее спасибо
Ответ(ы) на вопрос:
Гость
Program n1;
var a,b,c,d,s:real;
begin
read(a,b,c,d);
s:=(a+b+c+d)/4;
if a>s then
begin
writeln(a);
if b>s then
begin
write(b);
if c>s then
begin
write(c);
if d>s then
begin
write(d);
end;
end.
Не нашли ответ?
Похожие вопросы