Ввести 4 числа и отыскать из их малое, наибольшее и сумму(паскаль)

Ввести 4 числа и найти из них минимальное, максимальное и сумму(паскаль) Безотлагательно!!!25б за наихороший ответ

Задать свой вопрос
2 ответа

program chisla;

var  

 a, b, c, d, min, max, max1, max2, min1, min2, s : integer;

begin

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

 read(a, b, c, d);

 max:=0;

 min:=0;

 s:=a+b+c+d;

 if agt;b then  

   begin

     max:=a;

     min:=b;

   end

 else

   begin

     min:=a;

     max:=b;

   end;

 if cgt;d then

   begin

     max1:=c;

     min1:=d;

   end

 else

   begin

     max1:=d;

     min1:=c;

   end;

 if maxgt;max1 then

   max2:=max

 else

   max2:=max1;

 if mingt;min1 then

   min2:=min1

 else

   min2:=min;

writeln('Наибольшее число: ',max2);

writeln('Меньшее число: ',min2);

writeln('Сумма чисел: ',s);

end.    

       

   

Артём Матронич
Спасибо

Держи

1 Метод!

var x1,x2,x3,x4,sum,max,min:integer;

Begin  

read(x1,x2,x3,x4);

sum:=x1+x2+x3+x4;  

if x1gt;x2 then max:=x1 else max:=x2;

if maxlt;x3 then max:=x3;

if maxlt;x4 then max:=x4;

if x1lt;x2 then min:=x1 else min:=x2;

if mingt;x3 then min:=x3;

if mingt;x4 then min:=x4;

writeln(max);

writeln(min);

writeln(sum);

End.


2 Метод через массив

var a: array[1..4]of integer;

sum,i,max,min:integer;

Begin

min:=2147483647;  (если в задачки есть предел вероятного ввода числа ,то нужно поменять min на предел числа+1)

max:=0;

sum:=0;

For i:=1 to 4 do

 Begin

   read (a[i]);

   sum:=sum+a[i];

  End;

For i:=1 to 4 do

if a[i]gt;max then  max:=a[i];

For i:=1 to 4 do

if a[i]lt;=min then  min:=a[i];  

writeln(max);

writeln(min);

writeln(sum);

End.

Тимур Гапионов
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт