решите пожалуйста задачуу на програмирование паскаль. Даны 4 числа. Найти среднее арифметическое этих чисел и сравнить с максимальным из них. Если оно(средн. числ.) больше,то вывести фразу "yes", если нет то "no"..

1

Ответы и объяснения

2013-03-05T15:51:43+00:00

program zadacha1;

uses crt;

var 

begin;

clrscr;

writeln ('введите 4 числа');

readln (a,b,c,d);

i:=(a+b+c+d)/4;

if a>b then 

g:=a    

           else

g:=b

if g>c then 

g:=g

           else

g:=c;

if g>d then

g:=g

           else

g:=d;

if i>g then

writeln('yes');

          else

writeln('no');

readkey;

end.